Skip to content

Commit

Permalink
fix ocn_aquap analytic cases
Browse files Browse the repository at this point in the history
  • Loading branch information
jedwards4b committed Sep 11, 2024
1 parent f90b42e commit 743120d
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions docn/ocn_comp_nuopc.F90
Original file line number Diff line number Diff line change
Expand Up @@ -558,6 +558,7 @@ subroutine docn_comp_run(gcomp, importState, exportState, clock, target_ymd, tar
call docn_datamode_som_init_pointers(importState, exportState, sdat, model_frac, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
case('sst_aquap_analytic', 'sst_aquap_constant')
skip_restart_read=.true.
call docn_datamode_aquaplanet_init_pointers(exportState, model_frac, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
case('cplhist')
Expand Down Expand Up @@ -649,6 +650,8 @@ subroutine docn_comp_run(gcomp, importState, exportState, clock, target_ymd, tar
case('som', 'som_aquap')
call docn_datamode_som_restart_write(rpfile, case_name, inst_suffix, target_ymd, target_tod, &
logunit, my_task, sdat)
case('sst_aquap_analytic', 'sst_aquap_constant')
! Do nothing
case default
call shr_sys_abort(subName//'datamode '//trim(datamode)//' not recognized')
end select
Expand Down

0 comments on commit 743120d

Please sign in to comment.