diff --git a/CDEPS/patches/atm_comp_nuopc.F90.patch b/CDEPS/patches/atm_comp_nuopc.F90.patch index 5f154d6..1e176df 100644 --- a/CDEPS/patches/atm_comp_nuopc.F90.patch +++ b/CDEPS/patches/atm_comp_nuopc.F90.patch @@ -17,7 +17,7 @@ if ( trim(datamode) == 'CORE2_NYF' .or. & trim(datamode) == 'CORE2_IAF' .or. & trim(datamode) == 'CORE_IAF_JRA' .or. & -+ trim(datamode) == 'CORE_IAF_JRA55do'.or. & ++ trim(datamode) == 'JRA55do'.or. & trim(datamode) == 'CLMNCEP' .or. & trim(datamode) == 'CPLHIST' .or. & trim(datamode) == 'GEFS' .or. & @@ -25,7 +25,7 @@ call datm_datamode_jra_advertise(exportState, fldsExport, flds_scalar_name, & flds_co2, flds_wiso, flds_presaero, flds_presndep, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return -+ case ('CORE_IAF_JRA55do') ++ case ('JRA55do') + call datm_datamode_jra55do_advertise(exportState, fldsExport, flds_scalar_name, & + flds_co2, flds_wiso, flds_presaero, flds_presndep, rc) + if (ChkErr(rc,__LINE__,u_FILE_u)) return @@ -36,7 +36,7 @@ case('CORE_IAF_JRA') call datm_datamode_jra_init_pointers(exportState, sdat, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return -+ case('CORE_IAF_JRA55do') ++ case('JRA55do') + call datm_datamode_jra55do_init_pointers(exportState, sdat, rc) + if (ChkErr(rc,__LINE__,u_FILE_u)) return case('CLMNCEP') @@ -46,7 +46,7 @@ call datm_datamode_core2_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat) case('CORE_IAF_JRA') call datm_datamode_jra_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat) -+ case('CORE_IAF_JRA55do') ++ case('JRA55do') + call datm_datamode_jra55do_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat) case('CLMNCEP') call datm_datamode_clmncep_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat) @@ -55,7 +55,7 @@ case('CORE_IAF_JRA') call datm_datamode_jra_advance(exportstate, target_ymd, target_tod, sdat%model_calendar, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return -+ case('CORE_IAF_JRA55do') ++ case('JRA55do') + call datm_datamode_jra55do_advance(exportstate, target_ymd, target_tod, sdat%model_calendar, rc) + if (ChkErr(rc,__LINE__,u_FILE_u)) return case('CLMNCEP') @@ -65,7 +65,7 @@ case('CORE_IAF_JRA') call datm_datamode_jra_restart_write(case_name, inst_suffix, target_ymd, target_tod, & logunit, my_task, sdat) -+ case('CORE_IAF_JRA55do') ++ case('JRA55do') + call datm_datamode_jra55do_restart_write(case_name, inst_suffix, target_ymd, target_tod, & + logunit, my_task, sdat) case('CLMNCEP')