Changeset 4480

Timestamp:

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

Author:

trackstand2

Message:

Remove Dim size msgs from bdy{dta,tides}

Location:

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/BDY

Files:

• bdydta.F90 (modified) (10 diffs)
• bdytides.F90 (modified) (3 diffs)

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

@@ -401 +401 @@
                   nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar)
                ENDIF
-               IF(lwp) WRITE(numout,*) 'Dim size for votemper is ', nblendta(igrd)
+               !IF(lwp) WRITE(numout,*) 'Dim size for votemper is ', nblendta(igrd)
                ipi = nblendta(igrd)
                ! DCSE_NEMO: Call iom_get and explicitly flag that array has 
@@ -423 +423 @@
                   nblendta(igrd) = iom_file(numbdyt)%dimsz(1,idvar)
                ENDIF
-               IF(lwp) WRITE(numout,*) 'Dim size for vosaline is ', nblendta(igrd)
+               !IF(lwp) WRITE(numout,*) 'Dim size for vosaline is ', nblendta(igrd)
                ipi = nblendta(igrd)
                ! DCSE_NEMO: pass optional flag to signal that zdta is NOT
@@ -448 +448 @@
                  nblendta(igrd) = iom_file(numbdyu)%dimsz(1,idvar)
                ENDIF
-               IF(lwp) WRITE(numout,*) 'Dim size for vozocrtx is ', nblendta(igrd)
+               !IF(lwp) WRITE(numout,*) 'Dim size for vozocrtx is ', nblendta(igrd)
                ipi = nblendta(igrd)
                CALL iom_get ( numbdyu, jpdom_unknown,'vozocrtx',zdta(1:ipi,1:ipj,1:ipk),nbdy_a )
@@ -462 +462 @@
                  nblendta(igrd) = iom_file(numbdyv)%dimsz(1,idvar)
                ENDIF
-               IF(lwp) WRITE(numout,*) 'Dim size for vomecrty is ', nblendta(igrd)
+               !IF(lwp) WRITE(numout,*) 'Dim size for vomecrty is ', nblendta(igrd)
                ipi = nblendta(igrd)
                CALL iom_get ( numbdyv, jpdom_unknown,'vomecrty',zdta(1:ipi,1:ipj,1:ipk),nbdy_a )
@@ -476 +476 @@
               !
               igrd=1                                              ! leads fraction
-              IF(lwp) WRITE(numout,*) 'Dim size for ildsconc is ',nblendta(igrd)
+              !IF(lwp) WRITE(numout,*) 'Dim size for ildsconc is ',nblendta(igrd)
               ipi=nblendta(igrd)
               CALL iom_get ( numbdyt, jpdom_unknown,'ildsconc',zdta(1:ipi,:,1),nbdy_a )
@@ -484 +484 @@
               !
               igrd=1                                              ! ice thickness
-              IF(lwp) WRITE(numout,*) 'Dim size for iicethic is ',nblendta(igrd)
+              !IF(lwp) WRITE(numout,*) 'Dim size for iicethic is ',nblendta(igrd)
               ipi=nblendta(igrd)
               CALL iom_get ( numbdyt, jpdom_unknown,'iicethic',zdta(1:ipi,:,1),nbdy_a )
@@ -492 +492 @@
               !
               igrd=1                                              ! snow thickness
-              IF(lwp) WRITE(numout,*) 'Dim size for isnowthi is ',nblendta(igrd)
+              !IF(lwp) WRITE(numout,*) 'Dim size for isnowthi is ',nblendta(igrd)
               ipi=nblendta(igrd)
               CALL iom_get ( numbdyt, jpdom_unknown,'isnowthi',zdta(1:ipi,:,1),nbdy_a )
@@ -1078 +1078 @@
             nblendta(igrd) = iom_file(numbdyt_bt)%dimsz(1,idvar)
           ENDIF
-          WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd)
+          !WRITE(numout,*) 'Dim size for sossheig is ',nblendta(igrd)
           ipi=nblendta(igrd)
 
@@ -1093 +1093 @@
             nblendta(igrd) = iom_file(numbdyu_bt)%dimsz(1,idvar)
           ENDIF
-          WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd)
+          !WRITE(numout,*) 'Dim size for vobtcrtx is ',nblendta(igrd)
           ipi=nblendta(igrd)
 
@@ -1108 +1108 @@
             nblendta(igrd) = iom_file(numbdyv_bt)%dimsz(1,idvar)
           ENDIF
-          WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd)
+          !WRITE(numout,*) 'Dim size for vobtcrty is ',nblendta(igrd)
           ipi=nblendta(igrd)
 

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)