fix a real error

samsrabin · Aug 7, 2020 · fbb0e1e · fbb0e1e
1 parent f38484d
commit fbb0e1e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/docn/ocn_comp_nuopc.F90 b/docn/ocn_comp_nuopc.F90
@@ -521,7 +521,7 @@ subroutine docn_comp_run(importState, exportState, clock, target_ymd, target_tod
        if (ChkErr(rc,__LINE__,u_FILE_u)) return
     case('sst_aquap_analytic')
        call  docn_datamode_aquaplanet_advance(exportstate, model_mesh, sst_option=aquap_option, rc=rc)
-       if (chkerr(rc,__line__,u_file_u)) return
+       if (ChkErr(rc,__LINE__,u_file_u)) return
     case('sst_aquap_constant')
        call  docn_datamode_aquaplanet_advance(exportState, model_mesh, sst_constant_value=sst_constant_value, rc=rc)
        if (ChkErr(rc,__LINE__,u_FILE_u)) return