- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM
- Files:
-
- 4 edited
-
domain.F90 (modified) (4 diffs)
-
dommsk.F90 (modified) (2 diffs)
-
domzgr.F90 (modified) (4 diffs)
-
dtatsd.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r3764 r3875 131 131 NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip 132 132 #endif 133 !!---------------------------------------------------------------------- 134 135 REWIND( numnam ) ! Namelist namrun : parameters of the run 136 READ ( numnam, namrun ) 133 INTEGER :: ios ! Local integer output status for namelist read 134 !!---------------------------------------------------------------------- 135 136 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 137 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 138 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 139 140 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 141 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 143 WRITE ( numond, namrun ) 137 144 ! 138 145 IF(lwp) THEN ! control print … … 200 207 #endif 201 208 202 REWIND( numnam ) ! Namelist namdom : space & time domain (bathymetry, mesh, timestep) 203 READ ( numnam, namdom ) 209 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 210 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 211 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 212 213 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 214 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 215 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 216 WRITE ( numond, namdom ) 204 217 205 218 IF(lwp) THEN … … 237 250 rdth = rn_rdth 238 251 239 REWIND( numnam ) ! Namelist cross land advection 240 READ ( numnam, namcla ) 252 REWIND( numnam_ref ) ! Namelist namcla in reference namelist : Cross land advection 253 READ ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 254 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwp ) 255 256 REWIND( numnam_cfg ) ! Namelist namcla in configuration namelist : Cross land advection 257 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 258 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 259 WRITE( numond, namcla ) 260 241 261 IF(lwp) THEN 242 262 WRITE(numout,*) … … 247 267 #if defined key_netcdf4 248 268 ! ! NetCDF 4 case ("key_netcdf4" defined) 249 REWIND( numnam ) ! Namelist namnc4 : netcdf4 chunking parameters 250 READ ( numnam, namnc4 ) 269 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 270 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 271 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 272 273 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 274 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 275 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 276 WRITE( numond, namnc4 ) 277 251 278 IF(lwp) THEN ! control print 252 279 WRITE(numout,*) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r3294 r3875 133 133 INTEGER :: iif, iil, ii0, ii1, ii ! local integers 134 134 INTEGER :: ijf, ijl, ij0, ij1 ! - - 135 INTEGER :: ios 135 136 INTEGER , POINTER, DIMENSION(:,:) :: imsk 136 137 REAL(wp), POINTER, DIMENSION(:,:) :: zwf … … 144 145 CALL wrk_alloc( jpi, jpj, zwf ) 145 146 ! 146 REWIND( numnam ) ! Namelist namlbc : lateral momentum boundary condition 147 READ ( numnam, namlbc ) 147 REWIND( numnam_ref ) ! Namelist namlbc in reference namelist : Lateral momentum boundary condition 148 READ ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 149 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwp ) 150 151 REWIND( numnam_cfg ) ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition 152 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 154 WRITE ( numond, namlbc ) 148 155 149 156 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3764 r3875 99 99 !!---------------------------------------------------------------------- 100 100 INTEGER :: ioptio, ibat ! local integer 101 INTEGER :: ios 101 102 ! 102 103 NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco … … 105 106 IF( nn_timing == 1 ) CALL timing_start('dom_zgr') 106 107 ! 107 REWIND( numnam ) ! Read Namelist namzgr : vertical coordinate' 108 READ ( numnam, namzgr ) 108 REWIND( numnam_ref ) ! Namelist namzgr in reference namelist : Vertical coordinate 109 READ ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901 ) 110 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 111 112 REWIND( numnam_cfg ) ! Namelist namzgr in configuration namelist : Vertical coordinate 113 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 114 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 115 WRITE ( numond, namzgr ) 109 116 110 117 IF(lwp) THEN ! Control print … … 1100 1107 INTEGER :: ji, jj, jk, jl ! dummy loop argument 1101 1108 INTEGER :: iip1, ijp1, iim1, ijm1 ! temporary integers 1109 INTEGER :: ios ! Local integer output status for namelist read 1102 1110 REAL(wp) :: zrmax, ztaper ! temporary scalars 1103 1111 ! … … 1112 1120 CALL wrk_alloc( jpi, jpj, zenv, ztmp, zmsk, zri, zrj, zhbat ) 1113 1121 ! 1114 REWIND( numnam ) ! Read Namelist namzgr_sco : sigma-stretching parameters 1115 READ ( numnam, namzgr_sco ) 1122 REWIND( numnam_ref ) ! Namelist namzgr_sco in reference namelist : Sigma-stretching parameters 1123 READ ( numnam_ref, namzgr_sco, IOSTAT = ios, ERR = 901) 1124 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwp ) 1125 1126 REWIND( numnam_cfg ) ! Namelist namzgr_sco in configuration namelist : Sigma-stretching parameters 1127 READ ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 1128 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 1129 WRITE ( numond, namzgr_sco ) 1116 1130 1117 1131 IF(lwp) THEN ! control print 1118 1132 WRITE(numout,*) 1119 WRITE(numout,*) 'dom :zgr_sco : s-coordinate or hybrid z-s-coordinate'1133 WRITE(numout,*) 'domzgr_sco : s-coordinate or hybrid z-s-coordinate' 1120 1134 WRITE(numout,*) '~~~~~~~~~~~' 1121 1135 WRITE(numout,*) ' Namelist namzgr_sco' -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r3294 r3875 62 62 !! 63 63 NAMELIST/namtsd/ ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 64 INTEGER :: ios 64 65 !!---------------------------------------------------------------------- 65 66 ! … … 76 77 sn_tem = FLD_N( 'temperature', -1. , 'votemper', .false. , .true. , 'monthly' , '' , '' ) 77 78 sn_sal = FLD_N( 'salinity' , -1. , 'vosaline', .false. , .true. , 'monthly' , '' , '' ) 78 79 REWIND( numnam ) ! read in namlist namdta_tsd 80 READ ( numnam, namtsd ) 79 80 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist : 81 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 83 84 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run 85 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 87 WRITE ( numond, namtsd ) 81 88 82 89 IF( PRESENT( ld_tradmp ) ) ln_tsd_tradmp = .TRUE. ! forces the initialization when tradmp is used
Note: See TracChangeset
for help on using the changeset viewer.
