Changeset 2727 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
- Timestamp:
- 2011-04-07T14:24:12+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r2715 r2727 154 154 155 155 ! Check run length 156 IF( Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) /= (nitend-nit000+1) ) THEN 156 IF( Agrif_IRhot() * (Agrif_Parent(nitend)- & 157 Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 157 158 WRITE(*,*) 'incompatible run length between grids' 158 WRITE(*,*) 'parent grid value : ', (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1),' time step' 159 WRITE(*,*) 'child grid value : ', (nitend-nit000+1),' time step' 160 WRITE(*,*) 'value on child grid should be: ', Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) 159 WRITE(*,*) 'parent grid value : ',(Agrif_Parent(nitend)- & 160 Agrif_Parent(nit000)+1),' time step' 161 WRITE(*,*) 'child grid value : ', & 162 (nitend-nit000+1),' time step' 163 WRITE(*,*) 'value on child grid should be : ', & 164 Agrif_IRhot() * (Agrif_Parent(nitend)- & 165 Agrif_Parent(nit000)+1) 161 166 STOP 162 167 ENDIF … … 320 325 IF( check_namelist ) THEN 321 326 # if defined offline 322 ! Check time steps 327 ! Check time steps 323 328 IF( nint(Agrif_Rhot()) * nint(rdt) .ne. Agrif_Parent(rdt) ) THEN 324 329 WRITE(*,*) 'incompatible time step between grids' … … 328 333 STOP 329 334 ENDIF 330 335 331 336 ! Check run length 332 IF( Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 337 IF( Agrif_IRhot() * (Agrif_Parent(nitend)- & 338 Agrif_Parent(nit000)+1) .ne. (nitend-nit000+1) ) THEN 333 339 WRITE(*,*) 'incompatible run length between grids' 334 WRITE(*,*) 'parent grid value : ', (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1),' time step' 335 WRITE(*,*) 'child grid value : ', (nitend-nit000+1),' time step' 336 WRITE(*,*) 'value on child grid should be : ', Agrif_IRhot() * (Agrif_Parent(nitend)-Agrif_Parent(nit000)+1) 340 WRITE(*,*) 'parent grid value : ',(Agrif_Parent(nitend)- & 341 Agrif_Parent(nit000)+1),' time step' 342 WRITE(*,*) 'child grid value : ', & 343 (nitend-nit000+1),' time step' 344 WRITE(*,*) 'value on child grid should be : ', & 345 Agrif_IRhot() * (Agrif_Parent(nitend)- & 346 Agrif_Parent(nit000)+1) 337 347 STOP 338 348 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.