Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zbio.F

Timestamp:

2007-12-17T12:59:33+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - change the name of cpp key to key_top, key_lobster, key_pisces, key_kriest and the corresponding lk_

File:

• branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zbio.F (modified) (5 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zbio.F

@@ -6 +6 @@
       SUBROUTINE p4zbio
 CDIR$ LIST
-#if defined key_passivetrc && defined key_trc_pisces
+#if defined key_top && defined key_pisces
 CCC   ------------------------------------------------------------------
 CCC   
@@ -45 +45 @@
       REAL prodca,ztemp
 
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
       REAL zdenom2(jpi,jpj,jpk)
 #else
@@ -73 +73 @@
          DO jj=1,jpj
            DO ji=1,jpi
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
          zdenom=1./(trn(ji,jj,jk,jppoc)+trn(ji,jj,jk,jpgoc)
      $     +trn(ji,jj,jk,jpdsi)+trn(ji,jj,jk,jpcal)+rtrn)
@@ -273 +273 @@
 
 
-#if defined key_trc_kriest
+#if defined key_kriest
 
 #include "p4zbio.kriest.h"
@@ -426 +426 @@
           trc3d(:,:,:,9)=prorca3(:,:,:)*znegtr(:,:,:)*1e3*rfact2r
           trc3d(:,:,:,10)=prorca4(:,:,:)*znegtr(:,:,:)*1e3*rfact2r
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
           trc3d(:,:,:,11)=prorca5(:,:,:)*znegtr(:,:,:)*1e3*rfact2r
 #else