Changeset 4480 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

Timestamp:

2014-02-04T13:19:17+01:00 (10 years ago)

Author:

trackstand2

Message:

Remove Dim size msgs from bdy{dta,tides}

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -172 +172 @@
             IF(lwp) WRITE(numout,*) 'iom_file(1)%ndims(idvar) : ',iom_file%ndims(idvar)
             nblendta(igrd) = iom_file(inum)%dimsz(1,idvar)
-            WRITE(numout,*) 'Dim size for z1 is ', nblendta(igrd)
+            !WRITE(numout,*) 'Dim size for z1 is ', nblendta(igrd)
          ENDIF
          ipi = nblendta(igrd)
@@ -193 +193 @@
             idvar = iom_varid( inum,'u1' )
             lendta(igrd) = iom_file(inum)%dimsz(1,idvar)
-            WRITE(numout,*) 'Dim size for u1 is ',lendta(igrd)
+            !WRITE(numout,*) 'Dim size for u1 is ',lendta(igrd)
          ENDIF
          ipi = lendta(igrd)
@@ -214 +214 @@
             idvar = iom_varid( inum,'v1' )
             lendta(igrd) = iom_file(inum)%dimsz(1,idvar)
-            WRITE(numout,*) 'Dim size for v1 is ', lendta(igrd)
+            !WRITE(numout,*) 'Dim size for v1 is ', lendta(igrd)
          ENDIF
          ipi = lendta(igrd)