Changeset 49 for trunk/NEMO/OPA_SRC/eosbn2.F90

Timestamp:

2004-04-22T11:13:02+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE023 : Addition of new diagnostics controled with logical key l_ctl

File:

• trunk/NEMO/OPA_SRC/eosbn2.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/eosbn2.F90

@@ -222 +222 @@
       END SELECT
 
+      IF(l_ctl)   WRITE(numout,*) ' eos  : ', SUM( prd(:,:,:) )
+
    END SUBROUTINE eos_insitu
 
@@ -371 +373 @@
                   zs = psal(ji,jj,jk)
                   !   ... density and potential volumic mass
-                  prd(ji,jj,jk) = ( 0.0285 - ralpha * zt ) * tmask(ji,jj,jk)
+                  prd  (ji,jj,jk) = ( 0.0285 - ralpha * zt )        * tmask(ji,jj,jk)
                   prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 ) * tmask(ji,jj,jk)
                END DO
@@ -390 +392 @@
                   zs = psal(ji,jj,jk)
                   !   ... density and potential volumic mass
-                  prd(ji,jj,jk) = (   rbeta  * zs - ralpha * zt - 1. ) * tmask(ji,jj,jk)
-                  prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 ) * tmask(ji,jj,jk)
+                  prd  (ji,jj,jk) = ( rbeta  * zs - ralpha * zt - 1. ) * tmask(ji,jj,jk)
+                  prhop(ji,jj,jk) = ( rau0 * prd(ji,jj,jk) + rau0 )    * tmask(ji,jj,jk)
                END DO
             END DO
@@ -405 +407 @@
 
       END SELECT
+
+      IF(l_ctl)   WRITE(numout,*) ' eos-p: ', SUM( prd(:,:,:) ), ' pot : ', SUM( prhop(:,:,:) )
 
    END SUBROUTINE eos_insitu_pot
@@ -580 +584 @@
       END SELECT
 
+      IF(l_ctl)   WRITE(numout,*) ' eos2d: ', SUM( prd(1:jpim1,1:jpjm1) )
+
    END SUBROUTINE eos_insitu_2d
 
@@ -753 +759 @@
       END SELECT
 
+      IF(l_ctl)   WRITE(numout,*) ' bn2  : ', SUM( pn2 (:,:,:) )
+#if defined key_zdfddm
+      IF(l_ctl)   WRITE(numout,*) ' rrau : ', SUM( rrau(:,:,:) )
+#endif
+
    END SUBROUTINE eos_bn2