44 |
namelist /exf_clim_nml/ |
namelist /exf_clim_nml/ |
45 |
& climtempstartdate1, climtempstartdate2, climtempperiod, |
& climtempstartdate1, climtempstartdate2, climtempperiod, |
46 |
& climsaltstartdate1, climsaltstartdate2, climsaltperiod, |
& climsaltstartdate1, climsaltstartdate2, climsaltperiod, |
47 |
& climsststartdate1, climsststartdate2, climsstperiod, |
& climsststartdate1, climsststartdate2, climsstperiod, |
48 |
& climsssstartdate1, climsssstartdate2, climsssperiod, |
& climsssstartdate1, climsssstartdate2, climsssperiod, |
49 |
& climtempfile, climsaltfile, climsstfile, |
& climtempfile, climsaltfile, climsstfile, |
50 |
& climsssfile, |
& climsssfile, climsstconst, climsssconst, |
51 |
& exf_clim_iprec, exf_clim_yftype |
& exf_clim_iprec, exf_clim_yftype |
52 |
|
|
53 |
_BEGIN_MASTER(mythid) |
_BEGIN_MASTER(mythid) |
77 |
climsstfile = ' ' |
climsstfile = ' ' |
78 |
climsssfile = ' ' |
climsssfile = ' ' |
79 |
|
|
80 |
c Initialise the date arrays. |
c Initialise the date arrays. |
81 |
do i = 1,4 |
do i = 1,4 |
82 |
climtempstartdate(i) = 0 |
climtempstartdate(i) = 0 |
83 |
climsaltstartdate(i) = 0 |
climsaltstartdate(i) = 0 |
85 |
climsssstartdate(i) = 0 |
climsssstartdate(i) = 0 |
86 |
enddo |
enddo |
87 |
|
|
88 |
|
c Initialise constant values for relax. to constant SST, SSS |
89 |
|
climsstconst = 0. _d 0 |
90 |
|
climsssconst = 0. _d 0 |
91 |
|
|
92 |
c Initialise file type and field precision |
c Initialise file type and field precision |
93 |
exf_clim_iprec = 32 |
exf_clim_iprec = 32 |
94 |
exf_clim_yftype = 'RL' |
exf_clim_yftype = 'RL' |