Changeset 72 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2004-04-22T14:23:01+02:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/domain.F90
r32 r72 100 100 hv(:,:) = hv(:,:) + fse3v(:,:,jk) * vmask(:,:,jk) 101 101 END DO 102 #el se102 #elif defined key_dynspg_rl 103 103 ! Inverse of the local depth 104 104 hur(:,:) = fse3u(:,:,1) ! Lower bound : thickness of the first model level … … 161 161 162 162 IF(lwp) THEN 163 WRITE(numout,*) ' namrun'164 WRITE(numout,*) ' job number no = ', no165 WRITE(numout,*) ' experiment name for output cexper = ', cexper166 WRITE(numout,*) ' restart logical ln_rstart = ', ln_rstart167 WRITE(numout,*) ' control of time step nrstdt = ', nrstdt168 WRITE(numout,*) ' number of the first time step nit000 = ', nit000169 WRITE(numout,*) ' number of the last time step nitend = ', nitend170 WRITE(numout,*) ' initial calendar date aammjj ndate0 = ', ndate0171 WRITE(numout,*) ' leap year calendar (0/1) nleapy = ', nleapy172 WRITE(numout,*) ' initial state output ninist = ', ninist173 WRITE(numout,*) ' level of print nprint = ', nprint174 WRITE(numout,*) ' frequency of restart file nstock = ', nstock175 WRITE(numout,*) ' frequency of output file nwrite = ', nwrite176 WRITE(numout,*) ' runoff option nrunoff = ', nrunoff177 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl178 ENDIF 179 180 l_ctl = ln_ctl .AND. lwp 181 182 ndastp = ndate0 163 WRITE(numout,*) ' Namelist namrun' 164 WRITE(numout,*) ' job number no = ', no 165 WRITE(numout,*) ' experiment name for output cexper = ', cexper 166 WRITE(numout,*) ' restart logical ln_rstart = ', ln_rstart 167 WRITE(numout,*) ' control of time step nrstdt = ', nrstdt 168 WRITE(numout,*) ' number of the first time step nit000 = ', nit000 169 WRITE(numout,*) ' number of the last time step nitend = ', nitend 170 WRITE(numout,*) ' initial calendar date aammjj ndate0 = ', ndate0 171 WRITE(numout,*) ' leap year calendar (0/1) nleapy = ', nleapy 172 WRITE(numout,*) ' initial state output ninist = ', ninist 173 WRITE(numout,*) ' level of print nprint = ', nprint 174 WRITE(numout,*) ' frequency of restart file nstock = ', nstock 175 WRITE(numout,*) ' frequency of output file nwrite = ', nwrite 176 WRITE(numout,*) ' runoff option nrunoff = ', nrunoff 177 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 178 ENDIF 179 180 l_ctl = ln_ctl .AND. lwp ! trend control print on the 1st processor only 181 182 ndastp = ndate0 ! Assign initial date to current date 183 183 184 184 … … 202 202 CASE ( 1 ) 203 203 CALL ioconf_calendar('gregorian') 204 IF(lwp) WRITE(numout,*) 'The IOIPSL calendar is "gregorian", i.e. leap year'204 IF(lwp) WRITE(numout,*) ' The IOIPSL calendar is "gregorian", i.e. leap year' 205 205 CASE ( 0 ) 206 206 CALL ioconf_calendar('noleap') 207 IF(lwp) WRITE(numout,*) 'The IOIPSL calendar is "noleap", i.e. no leap year'207 IF(lwp) WRITE(numout,*) ' The IOIPSL calendar is "noleap", i.e. no leap year' 208 208 CASE ( 30 ) 209 209 CALL ioconf_calendar('360d') 210 IF(lwp) WRITE(numout,*) 'The IOIPSL calendar is "360d", i.e. 360 days in a year'210 IF(lwp) WRITE(numout,*) ' The IOIPSL calendar is "360d", i.e. 360 days in a year' 211 211 END SELECT 212 212 #endif … … 227 227 END SELECT 228 228 IF(lwp) THEN 229 WRITE(numout,*) ' '230 WRITE(numout,*) ' nb of days per year raajj = ', raajj,' days'231 WRITE(numout,*) ' nb of seconds per year raass = ', raass, ' s'232 WRITE(numout,*) ' nb of seconds per month rmoss = ', rmoss, ' s'229 WRITE(numout,*) 230 WRITE(numout,*) ' nb of days per year raajj = ', raajj,' days' 231 WRITE(numout,*) ' nb of seconds per year raass = ', raass, ' s' 232 WRITE(numout,*) ' nb of seconds per month rmoss = ', rmoss, ' s' 233 233 ENDIF 234 234 … … 238 238 239 239 IF(lwp) THEN 240 WRITE(numout,*) 'namdom'241 WRITE(numout,*) ' '242 WRITE(numout,*) ' flag read/compute bathymetry ntopo = ', ntopo243 WRITE(numout,*) ' minimum thickness of partial e3zps_min = ', e3zps_min, ' (m)'244 WRITE(numout,*) ' step level e3zps_rat = ', e3zps_rat245 WRITE(numout,*) ' flag read/compute coordinates ngrid = ', ngrid246 WRITE(numout,*) ' flag write mesh/mask file(s) nmsh = ', nmsh247 WRITE(numout,*) ' = 0 no file created '248 WRITE(numout,*) ' = 1 mesh_mask '249 WRITE(numout,*) ' = 2 mesh and mask '250 WRITE(numout,*) ' = 3 mesh_hgr, msh_zgr and mask '251 WRITE(numout,*) ' acceleration of converge nacc = ', nacc252 WRITE(numout,*) ' asselin time filter parameter atfp = ', atfp253 WRITE(numout,*) ' time step rdt = ', rdt254 WRITE(numout,*) ' minimum time step on tracers rdtmin = ', rdtmin255 WRITE(numout,*) ' maximum time step on tracers rdtmax = ', rdtmax256 WRITE(numout,*) ' depth variation tracer step rdth = ', rdth240 WRITE(numout,*) 241 WRITE(numout,*) ' Namelist namdom' 242 WRITE(numout,*) ' flag read/compute bathymetry ntopo = ', ntopo 243 WRITE(numout,*) ' minimum thickness of partial e3zps_min = ', e3zps_min, ' (m)' 244 WRITE(numout,*) ' step level e3zps_rat = ', e3zps_rat 245 WRITE(numout,*) ' flag read/compute coordinates ngrid = ', ngrid 246 WRITE(numout,*) ' flag write mesh/mask file(s) nmsh = ', nmsh 247 WRITE(numout,*) ' = 0 no file created ' 248 WRITE(numout,*) ' = 1 mesh_mask ' 249 WRITE(numout,*) ' = 2 mesh and mask ' 250 WRITE(numout,*) ' = 3 mesh_hgr, msh_zgr and mask ' 251 WRITE(numout,*) ' acceleration of converge nacc = ', nacc 252 WRITE(numout,*) ' asselin time filter parameter atfp = ', atfp 253 WRITE(numout,*) ' time step rdt = ', rdt 254 WRITE(numout,*) ' minimum time step on tracers rdtmin = ', rdtmin 255 WRITE(numout,*) ' maximum time step on tracers rdtmax = ', rdtmax 256 WRITE(numout,*) ' depth variation tracer step rdth = ', rdth 257 257 IF( lk_ice_lim ) THEN 258 WRITE(numout,*) ' ice model coupling frequencynfice = ', nfice258 WRITE(numout,*) ' ice model coupling frequency nfice = ', nfice 259 259 nfbulk = nfice 260 260 ENDIF 261 WRITE(numout,*) ' bulk computation frequency nfbulk = ', nfbulk, ' = nfice if ice model used' 262 WRITE(numout,*) ' flag closed sea or not nclosea= ', nclosea 263 261 WRITE(numout,*) ' bulk computation frequency nfbulk = ', nfbulk, ' = nfice if ice model used' 262 WRITE(numout,*) ' flag closed sea or not nclosea = ', nclosea 264 263 ENDIF 265 264 … … 271 270 READ ( numnam, namcla ) 272 271 IF(lwp) THEN 273 WRITE(numout,*) ' namcla' 274 WRITE(numout,*) ' cross land advection n_cla = ',n_cla 272 WRITE(numout,*) 273 WRITE(numout,*) ' Namelist namcla' 274 WRITE(numout,*) ' cross land advection n_cla = ',n_cla 275 275 ENDIF 276 276 … … 307 307 IF( lk_mpp ) CALL mpp_min( ze1min ) ! min over the global domain 308 308 IF( lk_mpp ) CALL mpp_min( ze2min ) 309 IF( lk_mpp ) CALL mpp_m in( ze1max )310 IF( lk_mpp ) CALL mpp_m in( ze2max )309 IF( lk_mpp ) CALL mpp_max( ze1max ) ! max over the global domain 310 IF( lk_mpp ) CALL mpp_max( ze2max ) 311 311 312 312 iloc = MINLOC( e1t(:,:), mask = tmask(:,:,1) == 1.e0 )
Note: See TracChangeset
for help on using the changeset viewer.