Changeset 1229
- Timestamp:
- 2008-12-01T08:04:11+01:00 (15 years ago)
- Location:
- trunk
- Files:
-
- 23 edited
-
CONFIG/GYRE/EXP00/namelist (modified) (2 diffs)
-
CONFIG/GYRE_LOBSTER/EXP00/namelist (modified) (2 diffs)
-
CONFIG/ORCA2_LIM/EXP00/1_namelist (modified) (2 diffs)
-
CONFIG/ORCA2_LIM/EXP00/1_namelist_ice_lim2 (modified) (1 diff)
-
CONFIG/ORCA2_LIM/EXP00/namelist (modified) (2 diffs)
-
CONFIG/ORCA2_LIM/EXP00/namelist_ice_lim2 (modified) (1 diff)
-
CONFIG/ORCA2_LIM/EXP00/namelist_ice_lim3 (modified) (1 diff)
-
CONFIG/ORCA2_LIM_PISCES/EXP00/namelist (modified) (3 diffs)
-
CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_ice_lim2 (modified) (1 diff)
-
CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_ice_lim3 (modified) (1 diff)
-
CONFIG/ORCA2_OFF_PISCES/EXP00/namelist (modified) (1 diff)
-
NEMO/LIM_SRC_2/ice_2.F90 (modified) (1 diff)
-
NEMO/LIM_SRC_2/iceini_2.F90 (modified) (1 diff)
-
NEMO/LIM_SRC_2/limrst_2.F90 (modified) (2 diffs)
-
NEMO/LIM_SRC_3/ice.F90 (modified) (1 diff)
-
NEMO/LIM_SRC_3/iceini.F90 (modified) (1 diff)
-
NEMO/LIM_SRC_3/limrst.F90 (modified) (2 diffs)
-
NEMO/OPA_SRC/DOM/domain.F90 (modified) (1 diff)
-
NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (1 diff)
-
NEMO/OPA_SRC/TRD/trdmld_rst.F90 (modified) (3 diffs)
-
NEMO/OPA_SRC/TRD/trdmod.F90 (modified) (1 diff)
-
NEMO/OPA_SRC/TRD/trdmod_oce.F90 (modified) (1 diff)
-
NEMO/OPA_SRC/restart.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/CONFIG/GYRE/EXP00/namelist
r1168 r1229 25 25 no = 0 ! job number 26 26 cexper = "GYRE" ! experience name 27 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 28 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 27 29 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 28 30 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value … … 626 628 nctls = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 627 629 ucf = 1. ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 630 cn_trdrst_in = "restart_mld" ! suffix of ocean restart name (input) 631 cn_trdrst_out = "restart_mld" ! suffix of ocean restart name (output) 628 632 ln_trdmld_restart = .false. ! restart for ML diagnostics 629 633 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S -
trunk/CONFIG/GYRE_LOBSTER/EXP00/namelist
r1168 r1229 25 25 no = 0 ! job number 26 26 cexper = "GYRE" ! experience name 27 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 28 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 27 29 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 28 30 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value … … 626 628 nctls = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 627 629 ucf = 1. ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 630 cn_trdrst_in = "restart_mld" ! suffix of ocean restart name (input) 631 cn_trdrst_out = "restart_mld" ! suffix of ocean restart name (output) 628 632 ln_trdmld_restart = .false. ! restart for ML diagnostics 629 633 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S -
trunk/CONFIG/ORCA2_LIM/EXP00/1_namelist
r1168 r1229 25 25 no = 0 ! job number 26 26 cexper = "Agulhas" ! experience name 27 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 28 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 27 29 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 28 30 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value … … 624 626 nctls = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 625 627 ucf = 1. ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 628 cn_trdrst_in = "restart_mld" ! suffix of ocean restart name (input) 629 cn_trdrst_out = "restart_mld" ! suffix of ocean restart name (output) 626 630 ln_trdmld_restart = .false. ! restart for ML diagnostics 627 631 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S -
trunk/CONFIG/ORCA2_LIM/EXP00/1_namelist_ice_lim2
r1113 r1229 14 14 &namicerun ! Share parameters for dynamics/advection/thermo 15 15 !----------------------------------------------------------------------- 16 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 16 18 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 17 19 ln_limdmp = .false. ! restoring ice thickness and fraction leads (T) or not (F) -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist
r1218 r1229 25 25 no = 0 ! job number 26 26 cexper = "ORCA2" ! experience name 27 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 28 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 27 29 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 28 30 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value … … 646 648 nctls = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 647 649 ucf = 1. ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 648 ln_trdmld_restart = .false. ! restart for ML diagnostics 649 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S 650 cn_trdrst_in = "restart_mld" ! suffix of ocean restart name (input) 651 cn_trdrst_out = "restart_mld" ! suffix of ocean restart name (output) 652 ln_trdmld_restart = .false. ! restart for ML diagnostics 653 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S 650 654 / 651 655 !----------------------------------------------------------------------- -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist_ice_lim2
r1113 r1229 14 14 &namicerun ! Share parameters for dynamics/advection/thermo 15 15 !----------------------------------------------------------------------- 16 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 16 18 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 17 19 ln_limdmp = .false. ! restoring ice thickness and fraction leads (T) or not (F) -
trunk/CONFIG/ORCA2_LIM/EXP00/namelist_ice_lim3
r1113 r1229 14 14 &namicerun ! Share parameters for dynamics/advection/thermo 15 15 !----------------------------------------------------------------------- 16 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 16 18 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 17 19 acrit = 1.0e-02 , 1.0e-02 ! minimum fraction for leads in the Northern (Southern) Hemisphere -
trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist
r1168 r1229 25 25 no = 0 ! job number 26 26 cexper = "ORCA2" ! experience name 27 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 28 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 27 29 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 28 30 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value … … 177 179 &namsbc_cpl ! coupled ocean/atmosphere model ("key_coupled") 178 180 !----------------------------------------------------------------------- 181 ! SEND 182 cn_snd_temperature= 'weighted oce and ice' ! 'oce only' 'weighted oce and ice' 'mixed oce-ice' 183 cn_snd_albedo = 'weighted ice' ! 'none' 'weighted ice' 'mixed oce-ice' 184 cn_snd_thickness = 'none' ! 'none' 'weighted ice and snow' 185 cn_snd_crt_nature = 'none' ! 'none' 'oce only' 'weighted oce and ice' 'mixed oce-ice' 186 cn_snd_crt_refere = 'spherical' ! 'spherical' 'cartesian' 187 cn_snd_crt_orient = 'eastward-northward' ! 'eastward-northward' or 'local grid' 188 cn_snd_crt_grid = 'T' ! 'T' 189 ! RECEIVE 190 cn_rcv_w10m = 'coupled' ! 'none' 'coupled' 191 cn_rcv_tau_nature = 'oce only' ! 'oce only' 'oce and ice' 'mixed oce-ice' 192 cn_rcv_tau_refere = 'cartesian' ! 'spherical' 'cartesian' 193 cn_rcv_tau_orient = 'eastward-northward' ! 'eastward-northward' or 'local grid' 194 cn_rcv_tau_grid = 'U,V' ! 'T' 'U,V' 'U,V,F' 'U,V,I' 'T,F' 'T,I' 'T,U,V' 195 cn_rcv_dqnsdt = 'coupled' ! 'none' 'coupled' 196 cn_rcv_qsr = 'oce and ice' ! 'conservative' 'oce and ice' 'mixed oce-ice' 197 cn_rcv_qns = 'oce and ice' ! 'conservative' 'oce and ice' 'mixed oce-ice' 198 cn_rcv_emp = 'conservative' ! 'conservative' 'oce and ice' 'mixed oce-ice' 199 cn_rcv_rnf = 'coupled' ! 'coupled' 'climato' 'mixed' 200 cn_rcv_cal = 'coupled' ! 'none' 'coupled' 179 201 / 180 202 !----------------------------------------------------------------------- … … 626 648 nctls = 0 ! control surface type in mixed-layer trends (0,1 or n<jpk) 627 649 ucf = 1. ! unit conversion factor (=1 -> /seconds ; =86400. -> /day) 628 ln_trdmld_restart = .false. ! restart for ML diagnostics 629 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S 650 cn_trdrst_in = "restart_mld" ! suffix of ocean restart name (input) 651 cn_trdrst_out = "restart_mld" ! suffix of ocean restart name (output) 652 ln_trdmld_restart = .false. ! restart for ML diagnostics 653 ln_trdmld_instant = .false. ! flag to diagnose trends of instantantaneous or mean ML T/S 630 654 / 631 655 !----------------------------------------------------------------------- -
trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_ice_lim2
r1113 r1229 14 14 &namicerun ! Share parameters for dynamics/advection/thermo 15 15 !----------------------------------------------------------------------- 16 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 16 18 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 17 19 ln_limdmp = .false. ! restoring ice thickness and fraction leads (T) or not (F) -
trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/namelist_ice_lim3
r1113 r1229 14 14 &namicerun ! Share parameters for dynamics/advection/thermo 15 15 !----------------------------------------------------------------------- 16 cn_icerst_in = "restart_ice_in" ! suffix of ice restart name (input) 17 cn_icerst_out = "restart_ice" ! suffix of ice restart name (output) 16 18 ln_limdyn = .true. ! ice dynamics (T) or thermodynamics only (F) 17 19 acrit = 1.0e-02 , 1.0e-02 ! minimum fraction for leads in the Northern (Southern) Hemisphere -
trunk/CONFIG/ORCA2_OFF_PISCES/EXP00/namelist
r1121 r1229 19 19 no = 0 ! job number 20 20 cexper = "PISCES" ! experience name 21 cn_ocerst_in = "restart" ! suffix of ocean restart name (input) 22 cn_ocerst_out = "restart" ! suffix of ocean restart name (output) 21 23 ln_rstart = .false. ! start from rest (F) or from a restart file (T) 22 24 nrstdt = 0 ! restart control = 0 nit000 is not compared to the restart file value -
trunk/NEMO/LIM_SRC_2/ice_2.F90
r1228 r1229 21 21 22 22 !!* Share parameters namelist (namicerun read in iceini) * 23 CHARACTER(len=32) , PUBLIC :: cn_icerst_in = "restart_ice_in" !: suffix of ice restart name (input) 24 CHARACTER(len=32) , PUBLIC :: cn_icerst_out = "restart_ice" !: suffix of ice restart name (output) 23 25 LOGICAL , PUBLIC :: ln_limdyn = .TRUE. !: flag for ice dynamics (T) or not (F) 24 26 LOGICAL , PUBLIC :: ln_limdmp = .FALSE. !: Ice damping -
trunk/NEMO/LIM_SRC_2/iceini_2.F90
r1228 r1229 88 88 !! ** input : Namelist namicerun 89 89 !!------------------------------------------------------------------- 90 NAMELIST/namicerun/ ln_limdyn, ln_limdmp, acrit, hsndif, hicdif90 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 91 91 !!------------------------------------------------------------------- 92 92 ! -
trunk/NEMO/LIM_SRC_2/limrst_2.F90
r1156 r1229 65 65 ENDIF 66 66 ! create the file 67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart_ice"67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 68 68 IF(lwp) THEN 69 69 WRITE(numout,*) … … 181 181 ENDIF 182 182 183 CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib )183 CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib ) 184 184 185 185 CALL iom_get( numrir, 'kt_ice' , ziter ) -
trunk/NEMO/LIM_SRC_3/ice.F90
r1156 r1229 480 480 !!-------------------------------------------------------------------------- 481 481 !! Namelist namicerun read in iceini 482 LOGICAL , PUBLIC :: & !!! ** init namelist (namicerun) ** 483 ln_limdyn = .TRUE., & !: flag for ice dynamics (T) or not (F) 484 ln_nicep = .TRUE. !: flag for sea-ice points output (T) or not (F) 485 REAL(wp), PUBLIC :: & !: 486 hsndif = 0.e0 , & !: computation of temp. in snow (0) or not (9999) 487 hicdif = 0.e0 , & !: computation of temp. in ice (0) or not (9999) 488 cai = 1.40e-3 , & !: atmospheric drag over sea ice 489 cao = 1.00e-3 !: atmospheric drag over ocean 490 REAL(wp), PUBLIC, DIMENSION(2) :: & !: 491 acrit = (/ 1.e-06 , 1.e-06 /) !: minimum fraction for leads in 492 ! ! north and south hemisphere 493 482 CHARACTER(len=32) , PUBLIC :: cn_icerst_in = "restart_ice_in" !: suffix of ice restart name (input) 483 CHARACTER(len=32) , PUBLIC :: cn_icerst_out = "restart_ice" !: suffix of ice restart name (output) 484 LOGICAL , PUBLIC :: ln_limdyn = .TRUE. !: flag for ice dynamics (T) or not (F) 485 LOGICAL , PUBLIC :: ln_nicep = .TRUE. !: flag for sea-ice points output (T) or not (F) 486 REAL(wp) , PUBLIC :: hsndif = 0.e0 !: computation of temp. in snow (0) or not (9999) 487 REAL(wp) , PUBLIC :: hicdif = 0.e0 !: computation of temp. in ice (0) or not (9999) 488 REAL(wp) , PUBLIC :: cai = 1.40e-3 !: atmospheric drag over sea ice 489 REAL(wp) , PUBLIC :: cao = 1.00e-3 !: atmospheric drag over ocean 490 REAL(wp), DIMENSION(2), PUBLIC :: acrit = (/ 1.e-06 , 1.e-06 /) !: minimum fraction for leads in 491 ! !: north and south hemisphere 494 492 !!-------------------------------------------------------------------------- 495 493 !! * Ice diagnostics -
trunk/NEMO/LIM_SRC_3/iceini.F90
r1156 r1229 122 122 !! 3.0 ! 08-03 (M. Vancop) LIM3 123 123 !!------------------------------------------------------------------- 124 NAMELIST/namicerun/ ln_limdyn, acrit, hsndif, hicdif, cai, cao, ln_nicep124 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, acrit, hsndif, hicdif, cai, cao, ln_nicep 125 125 !!------------------------------------------------------------------- 126 126 -
trunk/NEMO/LIM_SRC_3/limrst.F90
r1156 r1229 65 65 ENDIF 66 66 ! create the file 67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart_ice"67 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_icerst_out) 68 68 IF(lwp) THEN 69 69 WRITE(numout,*) … … 405 405 ENDIF 406 406 407 CALL iom_open ( 'restart_ice_in', numrir, kiolib = jprstlib )407 CALL iom_open ( cn_icerst_in, numrir, kiolib = jprstlib ) 408 408 409 409 CALL iom_get( numrir, 'nn_fsbc', zfice ) -
trunk/NEMO/OPA_SRC/DOM/domain.F90
r1146 r1229 140 140 !! * Modules used 141 141 USE ioipsl 142 NAMELIST/namrun/ no , cexper , ln_rstart , nrstdt , nit000,&143 & nit end, ndate0 , nleapy , ninist , nstock,&142 NAMELIST/namrun/ no , cexper, cn_ocerst_in, cn_ocerst_out, ln_rstart, nrstdt, & 143 & nit000, nitend, ndate0 , nleapy , ninist , nstock, & 144 144 & nwrite, ln_dimgnnn 145 145 -
trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90
r1146 r1229 25 25 !! namrun namelist parameters 26 26 !!---------------------------------------------------------------------- 27 CHARACTER (len=16) :: cexper = "exp0" !: experiment name used for output filename 28 LOGICAL :: ln_rstart = .FALSE. !: start from (F) rest or (T) a restart file 29 INTEGER :: no = 0 !: job number 30 INTEGER :: nrstdt = 0 !: control of the time step (0, 1 or 2) 31 INTEGER :: nn_rstssh = 0 !: hand made initilization of ssh or not (1/0) 32 INTEGER :: nit000 = 1 !: index of the first time step 33 INTEGER :: nitend = 10 !: index of the last time step 34 INTEGER :: ndate0 = 961115 !: initial calendar date aammjj 35 INTEGER :: nleapy = 0 !: Leap year calendar flag (0/1 or 30) 36 INTEGER :: ninist = 0 !: initial state output flag (0/1) 37 LOGICAL :: ln_dimgnnn = .FALSE. !: type of dimgout. (F): 1 file for all proc 38 !: (T): 1 file per proc 27 CHARACTER(len=16) :: cexper = "exp0" !: experiment name used for output filename 28 CHARACTER(len=32) :: cn_ocerst_in = "restart" !: suffix of ocean restart name (input) 29 CHARACTER(len=32) :: cn_ocerst_out = "restart" !: suffix of ocean restart name (output) 30 LOGICAL :: ln_rstart = .FALSE. !: start from (F) rest or (T) a restart file 31 INTEGER :: no = 0 !: job number 32 INTEGER :: nrstdt = 0 !: control of the time step (0, 1 or 2) 33 INTEGER :: nn_rstssh = 0 !: hand made initilization of ssh or not (1/0) 34 INTEGER :: nit000 = 1 !: index of the first time step 35 INTEGER :: nitend = 10 !: index of the last time step 36 INTEGER :: ndate0 = 961115 !: initial calendar date aammjj 37 INTEGER :: nleapy = 0 !: Leap year calendar flag (0/1 or 30) 38 INTEGER :: ninist = 0 !: initial state output flag (0/1) 39 LOGICAL :: ln_dimgnnn = .FALSE. !: type of dimgout. (F): 1 file for all proc 40 !: (T): 1 file per proc 39 41 !!---------------------------------------------------------------------- 40 42 !! was in restart but moved here because of the OFF line... better solution should be found... -
trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90
r1152 r1229 21 21 PUBLIC trd_mld_rst_write ! routine called by step.F90 22 22 23 CHARACTER (len=48) :: crestart = 'initial.nc' ! restart file name 24 INTEGER :: nummldw ! logical unit for mld restart 23 INTEGER :: nummldw ! logical unit for mld restart 25 24 26 25 !!--------------------------------------------------------------------------------- … … 55 54 ENDIF 56 55 ! create the file 57 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart_mld"56 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_trdrst_out) 58 57 IF(lwp) THEN 59 58 WRITE(numout,*) … … 140 139 ENDIF 141 140 142 CALL iom_open( 'restart_mld', inum, kiolib = jprstlib )141 CALL iom_open( cn_trdrst_in, inum, kiolib = jprstlib ) 143 142 144 143 IF( ln_trdmld_instant ) THEN -
trunk/NEMO/OPA_SRC/TRD/trdmod.F90
r1146 r1229 281 281 USE in_out_manager ! I/O manager 282 282 283 NAMELIST/namtrd/ ntrd, nctls, ln_trdmld_restart, ucf, ln_trdmld_instant283 NAMELIST/namtrd/ ntrd, nctls, cn_trdrst_in, cn_trdrst_out, ln_trdmld_restart, ucf, ln_trdmld_instant 284 284 !!---------------------------------------------------------------------- 285 285 -
trunk/NEMO/OPA_SRC/TRD/trdmod_oce.F90
r1152 r1229 14 14 15 15 !!* Namelist namtrd: diagnostics on dynamics/tracer trends 16 INTEGER , PUBLIC :: ntrd = 10 !: time step frequency dynamics and tracers trends 17 INTEGER , PUBLIC :: nctls = 0 !: control surface type for trends vertical integration 18 REAL(wp), PUBLIC :: ucf = 1. !: unit conversion factor (for netCDF trends outputs) 19 !: =1. (=86400.) for degC/s (degC/day) and psu/s (psu/day) 20 LOGICAL , PUBLIC :: ln_trdmld_instant = .FALSE. !: flag to diagnose inst./mean ML T/S trends 21 LOGICAL , PUBLIC :: ln_trdmld_restart = .FALSE. !: flag to restart mixed-layer diagnostics 16 INTEGER , PUBLIC :: ntrd = 10 !: time step frequency dynamics and tracers trends 17 INTEGER , PUBLIC :: nctls = 0 !: control surface type for trends vertical integration 18 REAL(wp), PUBLIC :: ucf = 1. !: unit conversion factor (for netCDF trends outputs) 19 !: =1. (=86400.) for degC/s (degC/day) and psu/s (psu/day) 20 CHARACTER(len=32) :: cn_trdrst_in = "restart_mld" !: suffix of ocean restart name (input) 21 CHARACTER(len=32) :: cn_trdrst_out = "restart_mld" !: suffix of ocean restart name (output) 22 LOGICAL , PUBLIC :: ln_trdmld_instant = .FALSE. !: flag to diagnose inst./mean ML T/S trends 23 LOGICAL , PUBLIC :: ln_trdmld_restart = .FALSE. !: flag to restart mixed-layer diagnostics 22 24 23 25 !!* Control parameters -
trunk/NEMO/OPA_SRC/restart.F90
r1218 r1229 80 80 ENDIF 81 81 ! create the file 82 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_ restart"82 clname = TRIM(cexper)//"_"//TRIM(ADJUSTL(clkt))//"_"//TRIM(cn_ocerst_out) 83 83 IF(lwp) THEN 84 84 WRITE(numout,*) … … 179 179 ENDIF 180 180 181 CALL iom_open( 'restart', numror, kiolib = jprstlib )181 CALL iom_open( cn_ocerst_in, numror, kiolib = jprstlib ) 182 182 183 183 ! Check dynamics and tracer time-step consistency and force Euler restart if changed
Note: See TracChangeset
for help on using the changeset viewer.
