Changeset 974 for trunk/NEMO/OFF_SRC
- Timestamp:
- 2008-05-15T16:07:14+02:00 (16 years ago)
- Location:
- trunk/NEMO/OFF_SRC/DOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/DOM/domain.F90
r719 r974 17 17 USE daymod ! calendar 18 18 USE lib_mpp ! distributed memory computing library 19 USE flxrnf ! runoffs20 19 21 20 USE domstp ! domain: set the time-step … … 111 110 NAMELIST/nam_run/ no , cexper , ln_rstart , nrstdt , nit000, & 112 111 & nitend, ndate0 , nleapy , ninist , nstock, & 113 & nprint, nwrite , nrunoff ,ln_ctl , nictls, nictle, &112 & nprint, nwrite , ln_ctl , nictls, nictle, & 114 113 & njctls, njctle , nbench , isplt , jsplt 115 114 … … 147 146 WRITE(numout,*) ' frequency of restart file nstock = ', nstock 148 147 WRITE(numout,*) ' frequency of output file nwrite = ', nwrite 149 WRITE(numout,*) ' runoff option nrunoff = ', nrunoff150 148 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 151 149 WRITE(numout,*) ' Start i indice for SUM control nictls = ', nictls -
trunk/NEMO/OFF_SRC/DOM/domrea.F90
r719 r974 93 93 REAL(wp), DIMENSION(jpi,jpj) :: & 94 94 zprt = 0. 95 96 REAL(wp), DIMENSION(1,1,jpk) :: &97 zt1d98 95 #if ! defined key_zco 99 96 INTEGER :: ik … … 150 147 CALL iom_get( inum2, jpdom_data, 'fmask', fmask ) 151 148 152 #if defined key_c fg_1d149 #if defined key_c1d 153 150 ! set umask and vmask equal tmask in 1D configuration 154 151 IF(lwp) WRITE(numout,*) … … 191 188 ! Vertical coordinates and scales factors 192 189 ! 193 CALL iom_get( inum4, jpdom_unknown, 'gdept_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! depth 194 gdept_0(:) = zt1d(1,1,:) 195 CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 196 gdepw_0(:) = zt1d(1,1,:) 197 CALL iom_get( inum4, jpdom_unknown, 'e3t_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 198 e3t_0(:) = zt1d(1,1,:) 199 CALL iom_get( inum4, jpdom_unknown, 'e3w_0', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 200 e3w_0(:) = zt1d(1,1,:) 190 CALL iom_get( inum4, jpdom_unknown, 'gdept_0', gdept_0 ) ! depth 191 CALL iom_get( inum4, jpdom_unknown, 'gdepw_0', gdepw_0 ) 192 CALL iom_get( inum4, jpdom_unknown, 'e3t_0' , e3t_0 ) 193 CALL iom_get( inum4, jpdom_unknown, 'e3w_0' , e3w_0 ) 201 194 202 195 #if ! defined key_zco … … 219 212 CALL iom_get( inum4, jpdom_data, 'hbatf', hbatf ) 220 213 221 CALL iom_get( inum4, jpdom_unknown, 'gsigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) ! scaling coef. 222 gsigt(:) = zt1d(1,1,:) 223 CALL iom_get( inum4, jpdom_unknown, 'gsigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 224 gsigw(:) = zt1d(1,1,:) 225 CALL iom_get( inum4, jpdom_unknown, 'gsi3w', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 226 gsi3w(:) = zt1d(1,1,:) 227 CALL iom_get( inum4, jpdom_unknown, 'esigt', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 228 esigt(:) = zt1d(1,1,:) 229 CALL iom_get( inum4, jpdom_unknown, 'esigw', zt1d, kstart=(/1,1,1/), kcount=(/1,1,jpk/) ) 230 esigw(:) = zt1d(1,1,:) 214 CALL iom_get( inum4, jpdom_unknown, 'gsigt', gsigt ) ! scaling coef. 215 CALL iom_get( inum4, jpdom_unknown, 'gsigw', gsigw ) 216 CALL iom_get( inum4, jpdom_unknown, 'gsi3w', gsi3w ) 217 CALL iom_get( inum4, jpdom_unknown, 'esigt', esigt ) 218 CALL iom_get( inum4, jpdom_unknown, 'esigw', esigw ) 231 219 232 220 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.