Changeset 445 for trunk/NEMO
- Timestamp:
- 2006-04-26T11:26:48+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/step.F90
r434 r445 188 188 #if defined key_agrif 189 189 kstp = nit000 + Agrif_Nb_Step() 190 IF ( Agrif_Root() .and. lwp) Write(*,*) '---'191 IF (lwp) Write(*,*) 'Grid N°',Agrif_Fixed(),' time step ',kstp190 ! IF ( Agrif_Root() .and. lwp) Write(*,*) '---' 191 ! IF (lwp) Write(*,*) 'Grid N°',Agrif_Fixed(),' time step ',kstp 192 192 #endif 193 193 indic = 1 ! reset to no error condition
Note: See TracChangeset
for help on using the changeset viewer.