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