@@ -5,7 +5,7 @@ diff --git a/datm/atm_comp_nuopc.F90 b/datm/atm_comp_nuopc.F90
55index b74e0d3..bb31c22 100644
66--- a/datm/atm_comp_nuopc.F90
77+++ b/datm/atm_comp_nuopc.F90
8- @@ -48 ,6 +48 ,10 @@ module cdeps_datm_comp
8+ @@ -47 ,6 +47 ,10 @@ module cdeps_datm_comp
99 use datm_datamode_jra_mod , only : datm_datamode_jra_init_pointers
1010 use datm_datamode_jra_mod , only : datm_datamode_jra_advance
1111
@@ -16,15 +16,15 @@ index b74e0d3..bb31c22 100644
1616 use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_advertise
1717 use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_init_pointers
1818 use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_advance
19- @@ -357 ,6 +361 ,7 @@ contains
19+ @@ -355 ,6 +359 ,7 @@ contains
2020 if ( trim(datamode) == 'CORE2_NYF' .or. &
2121 trim(datamode) == 'CORE2_IAF' .or. &
2222 trim(datamode) == 'CORE_IAF_JRA' .or. &
2323+ trim(datamode) == 'JRA55do' .or. &
2424 trim(datamode) == 'CLMNCEP' .or. &
2525 trim(datamode) == 'CPLHIST' .or. &
2626 trim(datamode) == 'GEFS' .or. &
27- @@ -377 ,6 +382 ,10 @@ contains
27+ @@ -375 ,6 +380 ,10 @@ contains
2828 call datm_datamode_jra_advertise(exportState, fldsExport, flds_scalar_name, &
2929 flds_co2, flds_wiso, flds_presaero, flds_presndep, rc)
3030 if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -35,7 +35,7 @@ index b74e0d3..bb31c22 100644
3535 case ('CLMNCEP')
3636 call datm_datamode_clmncep_advertise(exportState, fldsExport, flds_scalar_name, &
3737 flds_co2, flds_wiso, flds_presaero, flds_presndep, flds_preso3, rc)
38- @@ -627 ,6 +636 ,9 @@ contains
38+ @@ -623 ,6 +632 ,9 @@ contains
3939 case('CORE_IAF_JRA')
4040 call datm_datamode_jra_init_pointers(exportState, sdat, rc)
4141 if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -45,16 +45,16 @@ index b74e0d3..bb31c22 100644
4545 case('CLMNCEP')
4646 call datm_datamode_clmncep_init_pointers(importState, exportState, sdat, rc)
4747 if (ChkErr(rc,__LINE__,u_FILE_u)) return
48- @@ -652 ,7 +664 ,7 @@ contains
48+ @@ -645 ,7 +657 ,7 @@ contains
4949 call shr_get_rpointer_name(gcomp, 'atm', target_ymd, target_tod, rpfile, 'read', rc)
5050 if (ChkErr(rc,__LINE__,u_FILE_u)) return
5151 select case (trim(datamode))
52- - case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','CLMNCEP','CPLHIST','ERA5','GEFS','CFSR',' SIMPLE')
53- + case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','JRA55do','CLMNCEP','CPLHIST','ERA5','GEFS','CFSR',' SIMPLE')
52+ - case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','CLMNCEP','CPLHIST','ERA5','GEFS','SIMPLE')
53+ + case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','JRA55do','CLMNCEP','CPLHIST','ERA5','GEFS','SIMPLE')
5454 call dshr_restart_read(restfilm, rpfile, logunit, my_task, mpicom, sdat, rc)
5555 if (ChkErr(rc,__LINE__,u_FILE_u)) return
5656 case default
57- @@ -694 ,6 +706 ,9 @@ contains
57+ @@ -688 ,6 +700 ,9 @@ contains
5858 case('CORE_IAF_JRA')
5959 call datm_datamode_jra_advance(exportstate, target_ymd, target_tod, sdat%model_calendar, rc)
6060 if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -64,12 +64,12 @@ index b74e0d3..bb31c22 100644
6464 case('CLMNCEP')
6565 call datm_datamode_clmncep_advance(mainproc, logunit, mpicom, rc)
6666 if (ChkErr(rc,__LINE__,u_FILE_u)) return
67- @@ -722 ,7 +737 ,7 @@ contains
67+ @@ -716 ,7 +731 ,7 @@ contains
6868 call shr_get_rpointer_name(gcomp, 'atm', target_ymd, target_tod, rpfile, 'write', rc)
6969 if (ChkErr(rc,__LINE__,u_FILE_u)) return
7070 select case (trim(datamode))
71- - case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','CLMNCEP','CPLHIST','ERA5','GEFS','CFSR',' SIMPLE')
72- + case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','JRA55do','CLMNCEP','CPLHIST','ERA5','GEFS','CFSR',' SIMPLE')
71+ - case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','CLMNCEP','CPLHIST','ERA5','GEFS','SIMPLE')
72+ + case('CORE2_NYF','CORE2_IAF','CORE_IAF_JRA','JRA55do','CLMNCEP','CPLHIST','ERA5','GEFS','SIMPLE')
7373 call dshr_restart_write(rpfile, case_name, 'datm', inst_suffix, target_ymd, target_tod, logunit, &
7474 my_task, sdat, rc)
7575 if (ChkErr(rc,__LINE__,u_FILE_u)) return
0 commit comments