@@ -76,12 +76,6 @@ module cdeps_datm_comp
76
76
use datm_datamode_gefs_mod , only : datm_datamode_gefs_restart_write
77
77
use datm_datamode_gefs_mod , only : datm_datamode_gefs_restart_read
78
78
79
- use datm_datamode_cfsr_mod , only : datm_datamode_cfsr_advertise
80
- use datm_datamode_cfsr_mod , only : datm_datamode_cfsr_init_pointers
81
- use datm_datamode_cfsr_mod , only : datm_datamode_cfsr_advance
82
- use datm_datamode_cfsr_mod , only : datm_datamode_cfsr_restart_write
83
- use datm_datamode_cfsr_mod , only : datm_datamode_cfsr_restart_read
84
-
85
79
use datm_datamode_simple_mod , only : datm_datamode_simple_advertise
86
80
use datm_datamode_simple_mod , only : datm_datamode_simple_init_pointers
87
81
use datm_datamode_simple_mod , only : datm_datamode_simple_advance
@@ -391,9 +385,6 @@ subroutine InitializeAdvertise(gcomp, importState, exportState, clock, rc)
391
385
case (' GEFS' )
392
386
call datm_datamode_gefs_advertise(exportState, fldsExport, flds_scalar_name, rc)
393
387
if (ChkErr(rc,__LINE__,u_FILE_u)) return
394
- case (' CFSR' )
395
- call datm_datamode_cfsr_advertise(exportState, fldsExport, flds_scalar_name, rc)
396
- if (ChkErr(rc,__LINE__,u_FILE_u)) return
397
388
case (' SIMPLE' )
398
389
call datm_datamode_simple_advertise(exportState, fldsExport, flds_scalar_name, &
399
390
nlfilename, my_task, vm, rc)
@@ -638,9 +629,6 @@ subroutine datm_comp_run(importState, exportState, target_ymd, target_tod, targe
638
629
case (' GEFS' )
639
630
call datm_datamode_gefs_init_pointers(exportState, sdat, rc)
640
631
if (ChkErr(rc,__LINE__,u_FILE_u)) return
641
- case (' CFSR' )
642
- call datm_datamode_cfsr_init_pointers(exportState, sdat, rc)
643
- if (ChkErr(rc,__LINE__,u_FILE_u)) return
644
632
case (' SIMPLE' )
645
633
call datm_datamode_simple_init_pointers(exportState, sdat, rc)
646
634
if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -661,8 +649,6 @@ subroutine datm_comp_run(importState, exportState, target_ymd, target_tod, targe
661
649
call datm_datamode_era5_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat)
662
650
case (' GEFS' )
663
651
call datm_datamode_gefs_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat)
664
- case (' CFSR' )
665
- call datm_datamode_cfsr_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat)
666
652
case (' SIMPLE' )
667
653
call datm_datamode_simple_restart_read(restfilm, inst_suffix, logunit, my_task, mpicom, sdat)
668
654
end select
@@ -715,9 +701,6 @@ subroutine datm_comp_run(importState, exportState, target_ymd, target_tod, targe
715
701
case (' GEFS' )
716
702
call datm_datamode_gefs_advance(exportstate, mainproc, logunit, mpicom, target_ymd, &
717
703
target_tod, sdat% model_calendar, rc)
718
- case (' CFSR' )
719
- call datm_datamode_cfsr_advance(exportstate, mainproc, logunit, mpicom, target_ymd, &
720
- target_tod, sdat% model_calendar, rc)
721
704
if (ChkErr(rc,__LINE__,u_FILE_u)) return
722
705
case (' SIMPLE' )
723
706
call datm_datamode_simple_advance(target_ymd, target_tod, target_mon, &
@@ -747,10 +730,6 @@ subroutine datm_comp_run(importState, exportState, target_ymd, target_tod, targe
747
730
call datm_datamode_gefs_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
748
731
logunit, my_task, sdat)
749
732
if (ChkErr(rc,__LINE__,u_FILE_u)) return
750
- case (' CFSR' )
751
- call datm_datamode_cfsr_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
752
- logunit, my_task, sdat)
753
- if (ChkErr(rc,__LINE__,u_FILE_u)) return
754
733
case (' SIMPLE' )
755
734
call datm_datamode_simple_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
756
735
logunit, my_task, sdat)
0 commit comments