-
Notifications
You must be signed in to change notification settings - Fork 7
/
atm_comp_nuopc.F90.patch
73 lines (72 loc) · 3.92 KB
/
atm_comp_nuopc.F90.patch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
--- CDEPS/datm/atm_comp_nuopc.F90 2023-08-31 10:49:23.508874000 +1000
+++ extra_sources/atm_comp_nuopc.F90 2023-08-31 10:48:55.428272000 +1000
@@ -52,6 +52,12 @@
use datm_datamode_jra_mod , only : datm_datamode_jra_restart_write
use datm_datamode_jra_mod , only : datm_datamode_jra_restart_read
+ use datm_datamode_jra55do_mod , only : datm_datamode_jra55do_advertise
+ use datm_datamode_jra55do_mod , only : datm_datamode_jra55do_init_pointers
+ use datm_datamode_jra55do_mod , only : datm_datamode_jra55do_advance
+ use datm_datamode_jra55do_mod , only : datm_datamode_jra55do_restart_write
+ use datm_datamode_jra55do_mod , only : datm_datamode_jra55do_restart_read
+
use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_advertise
use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_init_pointers
use datm_datamode_clmncep_mod , only : datm_datamode_clmncep_advance
@@ -342,6 +348,7 @@
if ( trim(datamode) == 'CORE2_NYF' .or. &
trim(datamode) == 'CORE2_IAF' .or. &
trim(datamode) == 'CORE_IAF_JRA' .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 ('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
case ('CLMNCEP')
call datm_datamode_clmncep_advertise(exportState, fldsExport, flds_scalar_name, &
flds_co2, flds_wiso, flds_presaero, flds_presndep, flds_preso3, rc)
@@ -606,6 +617,9 @@
case('CORE_IAF_JRA')
call datm_datamode_jra_init_pointers(exportState, sdat, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
+ case('JRA55do')
+ call datm_datamode_jra55do_init_pointers(exportState, sdat, rc)
+ if (ChkErr(rc,__LINE__,u_FILE_u)) return
case('CLMNCEP')
call datm_datamode_clmncep_init_pointers(importState, exportState, sdat, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -630,6 +644,8 @@
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('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)
case('CPLHIST')
@@ -677,6 +693,9 @@
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('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')
call datm_datamode_clmncep_advance(mainproc, logunit, mpicom, rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -705,6 +724,9 @@
case('CORE_IAF_JRA')
call datm_datamode_jra_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
logunit, my_task, sdat)
+ case('JRA55do')
+ call datm_datamode_jra55do_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
+ logunit, my_task, sdat)
case('CLMNCEP')
call datm_datamode_clmncep_restart_write(case_name, inst_suffix, target_ymd, target_tod, &
logunit, my_task, sdat)