Changeset 1191 for trunk/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2008-09-18T10:33:07+02:00 (16 years ago)

Author:

smasson

Message:

improve control print for debugging ticket #252

File:

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

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -609 +609 @@
 
          IF( istop == nstop ) THEN   ! no additional errors until this point...
-            IF(lwp) WRITE(numout,*) '           read '//TRIM(cdvar)//' in '//TRIM(iom_file(kiomid)%name)//' ok'
-            
+            IF(lwp) WRITE(numout,"(10x,' read ',a,' (rec: ',i4,') in ',a,' ok')") TRIM(cdvar), itime, TRIM(iom_file(kiomid)%name)
+          
             !--- overlap areas and extra hallows (mpp)
             IF(     PRESENT(pv_r2d) .AND. idom /= jpdom_unknown ) THEN