Changeset 1291 for trunk/NEMO/OFF_SRC/dtadyn.F90
- Timestamp:
- 2009-02-03T15:22:22+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/dtadyn.F90
r1181 r1291 206 206 flx ! auxiliary field for 2-D surface boundary conditions 207 207 208 209 208 ! 0. Initialization 210 209 ! ----------------- 211 210 212 211 IF (lfirdyn) THEN 213 ! 214 ! time step MUST BE nint000 215 ! 216 IF (kt.ne.nit000) THEN 217 IF (lwp) THEN 218 WRITE (numout,*) ' kt MUST BE EQUAL to nit000. kt=',kt & 219 ,' nit000=',nit000 220 END IF 212 ! first time step MUST BE nit000 213 IF( kt /= nit000 ) THEN 214 IF (lwp) THEN 215 WRITE (numout,*) ' kt MUST BE EQUAL to nit000. kt=',kt ,' nit000=',nit000 221 216 STOP 'dtadyn' 222 END if 223 ! Initialize the parameters of the interpolation 224 CALL dta_dyn_init 217 ENDIF 218 ENDIF 219 ! Initialize the parameters of the interpolation 220 CALL dta_dyn_init 225 221 ENDIF 226 222 … … 234 230 zweighm1 = 1. - zweigh 235 231 236 IF (lperdyn) THEN232 IF( lperdyn ) THEN 237 233 iperm1 = MOD(INT(zt),ndtadyn) 238 234 ELSE … … 240 236 ENDIF 241 237 iper = iperm1 + 1 242 IF (iperm1 == 0) THEN243 IF (lperdyn) THEN238 IF( iperm1 == 0 ) THEN 239 IF( lperdyn ) THEN 244 240 iperm1 = ndtadyn 245 241 ELSE 246 IF (lfirdyn) THEN 247 IF (lwp) THEN 248 WRITE (numout,*) ' dynamic file is not periodic ' 249 WRITE (numout,*) ' with or without interpolation, ' 250 WRITE (numout,*) ' we take the first value' 251 WRITE (numout,*) ' for the previous period ' 252 WRITE (numout,*) ' iperm1 = 0 ' 253 END IF 242 IF( lfirdyn ) THEN 243 IF (lwp) WRITE (numout,*) & 244 & ' dynamic file is not periodic with or without interpolation & 245 & we take the first value for the previous period iperm1 = 0 ' 254 246 END IF 255 247 END IF
Note: See TracChangeset
for help on using the changeset viewer.