Changeset 445 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2006-04-26T11:26:48+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_040:RB: comment debug print useful for agrif

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/step.F90

@@ -188 +188 @@
 #if defined key_agrif
       kstp = nit000 + Agrif_Nb_Step()
-      IF ( Agrif_Root() .and. lwp) Write(*,*) '---'
-      IF (lwp) Write(*,*) 'Grid N°',Agrif_Fixed(),' time step ',kstp
+!      IF ( Agrif_Root() .and. lwp) Write(*,*) '---'
+!      IF (lwp) Write(*,*) 'Grid N°',Agrif_Fixed(),' time step ',kstp
 #endif   
       indic = 1                    ! reset to no error condition