Changeset 4154
- Timestamp:
- 2013-11-05T13:52:36+01:00 (11 years ago)
- Location:
- branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r4064 r4154 67 67 INTEGER :: ji,jj,jk ! dummy indices 68 68 INTEGER :: ierr ! allocation error status 69 INTEGER :: ios ! Local integer output status for namelist read 69 70 REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w 70 71 71 72 NAMELIST/namcrs/ nn_factx, nn_facty, nn_binref, nn_msh_crs, nn_crs_kz, ln_crs_wn 72 73 74 73 !!---------------------------------------------------------------------- 75 74 ! … … 85 84 !--------------------------------------------------------- 86 85 ! 87 REWIND( numnam ) ! Read Namelist namtra_qsr : ratio and length of penetration 88 READ ( numnam, namcrs ) ! Namelist namcrs : Grid-coarsening utility namelist 86 87 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 88 READ ( numnam_ref, namcrs, IOSTAT = ios, ERR = 901) 89 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in reference namelist', lwp ) 90 91 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 92 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 93 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 94 WRITE ( numond, namcrs ) 95 89 96 IF(lwp) THEN 90 97 WRITE(numout,*) -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/DOM/dom_oce.F90
r4147 r4154 42 42 INTEGER , PUBLIC :: nn_baro !: number of barotropic time steps (key_dynspg_ts) 43 43 INTEGER , PUBLIC :: nn_closea !: =0 suppress closed sea/lake from the ORCA domain or not (=1) 44 LOGICAL , PUBLIC :: ln_crs !: Apply grid coarsening to dynamical model output or online passive tracers 45 44 46 !! Horizontal grid parameters for domhgr 45 47 !! ===================================== -
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4152 r4154 56 56 !! ( (PISCES, CFC, MY_TRC ) 57 57 !!--------------------------------------------------------------------- 58 INTEGER :: jn ! dummy loop indice 58 59 ! ! Parameters of the run 59 60 IF( .NOT. lk_offline ) CALL trc_nam_run … … 176 177 & cn_trcrst_in, cn_trcrst_out 177 178 179 INTEGER :: ios ! Local integer output status for namelist read 180 178 181 !!--------------------------------------------------------------------- 179 182 … … 193 196 READ ( numnat_cfg, namtrc_run, IOSTAT = ios, ERR = 902 ) 194 197 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 195 WRITE ( numont, namtrc )198 WRITE ( numont, namtrc_run ) 196 199 197 200 ! computes the first time step of tracer model … … 219 222 !! 220 223 !!--------------------------------------------------------------------- 221 INTEGER :: jn222 ! Definition of a tracer as a structure223 224 TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput 224 225 !! 225 226 NAMELIST/namtrc/ sn_tracer, ln_trcdta,ln_trcdmp, ln_trcdmp_clo 226 227 228 INTEGER :: ios ! Local integer output status for namelist read 229 INTEGER :: jn ! dummy loop indice 227 230 !!--------------------------------------------------------------------- 228 231 IF(lwp) WRITE(numout,*) … … 269 272 NAMELIST/namtrc_dia/ ln_diatrc, ln_diabio, nn_writedia, nn_writebio 270 273 274 INTEGER :: ios ! Local integer output status for namelist read 271 275 !!--------------------------------------------------------------------- 272 276
Note: See TracChangeset
for help on using the changeset viewer.