- Timestamp:
- 2015-12-17T19:21:15+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r6069 r6108 37 37 REAL(wp), PUBLIC :: rn_e3zps_rat !: minimum thickness ration for partial steps 38 38 INTEGER , PUBLIC :: nn_msh !: = 1 create a mesh-mask file 39 INTEGER , PUBLIC :: nn_acc !: = 0/1 use of the acceleration of convergence technique40 39 REAL(wp), PUBLIC :: rn_atfp !: asselin time filter parameter 41 REAL(wp), PUBLIC :: rn_rdt !: time step for the dynamics (and tracer if nacc=0) 42 REAL(wp), PUBLIC :: rn_rdtmin !: minimum time step on tracers 43 REAL(wp), PUBLIC :: rn_rdtmax !: maximum time step on tracers 44 REAL(wp), PUBLIC :: rn_rdth !: depth variation of tracer step 40 REAL(wp), PUBLIC :: rn_rdt !: time step for the dynamics and tracer 45 41 INTEGER , PUBLIC :: nn_closea !: =0 suppress closed sea/lake from the ORCA domain or not (=1) 46 42 INTEGER , PUBLIC :: nn_euler !: =0 start with forward time step or not (=1) … … 102 98 REAL(wp), PUBLIC :: e3zps_rat !: minimum thickness ration for partial steps 103 99 INTEGER , PUBLIC :: nmsh !: = 1 create a mesh-mask file 104 INTEGER , PUBLIC :: nacc !: = 0/1 use of the acceleration of convergence technique105 100 REAL(wp), PUBLIC :: atfp !: asselin time filter parameter 106 REAL(wp), PUBLIC :: rdt !: time step for the dynamics (and tracer if nacc=0) 107 REAL(wp), PUBLIC :: rdtmin !: minimum time step on tracers 108 REAL(wp), PUBLIC :: rdtmax !: maximum time step on tracers 109 REAL(wp), PUBLIC :: rdth !: depth variation of tracer step 110 111 ! !!! associated variables 112 INTEGER , PUBLIC :: neuler !: restart euler forward option (0=Euler) 113 REAL(wp), PUBLIC :: atfp1 !: asselin time filter coeff. (atfp1= 1-2*atfp) 114 115 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: rdttra !: vertical profile of tracer time step 116 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) :: r2dtra !: = 2*rdttra except at nit000 (=rdttra) if neuler=0 101 REAL(wp), PUBLIC :: rdt !: time step for the dynamics and tracer 102 103 ! !!! associated variables 104 INTEGER , PUBLIC :: neuler !: restart euler forward option (0=Euler) 105 REAL(wp), PUBLIC :: atfp1 !: asselin time filter coeff. (atfp1= 1-2*atfp) 106 REAL(wp), PUBLIC :: r2dt !: = 2*rdt except at nit000 (=rdt) if neuler=0 117 107 118 108 !!---------------------------------------------------------------------- … … 323 313 ierr(:) = 0 324 314 ! 325 ALLOCATE( rdttra(jpk), r2dtra(jpk),mig(jpi), mjg(jpj), nfiimpp(jpni,jpnj), &315 ALLOCATE( mig(jpi), mjg(jpj), nfiimpp(jpni,jpnj), & 326 316 & nfipproc(jpni,jpnj), nfilcit(jpni,jpnj), STAT=ierr(1) ) 327 317 !
Note: See TracChangeset
for help on using the changeset viewer.