Merge pull request #220 from COSIMA/Rename-CORE_IAF_JRA55do_iss219

Rename CORE_IAF_JRA55do iss219

Author: ezhilsabareesh8

CDEPS/patches/atm_comp_nuopc.F90.patch

@@ -17,15 +17,15 @@
      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. &
 @@ -361,6 +368,10 @@
         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')