Changeset 772 for branches/dev_001_GM/NEMO/TOP_SRC/PISCES_SMS/p4zmeso.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/p4zmeso.F (modified) (3 diffs)

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

@@ -6 +6 @@
 CDIR$ LIST
       SUBROUTINE p4zmeso
-#if defined key_passivetrc && defined key_trc_pisces
+#if defined key_top && defined key_pisces
 CCC---------------------------------------------------------------------
 CCC
@@ -146 +146 @@
 C    ----------------------------------
 C
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
         grazffe(ji,jj,jk) = 5E3*zstep*wsbio4(ji,jj,jk)
      &    *tgfunc2(ji,jj,jk)*trn(ji,jj,jk,jpgoc)*trn(ji,jj,jk,jpmes)
@@ -190 +190 @@
      &    +grazn(ji,jj,jk)+grazpoc(ji,jj,jk)+grazffe(ji,jj,jk))
      &    *(1.-epsher2-unass2)
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
         grafer2(ji,jj,jk)=(grazf(ji,jj,jk)+graznf(ji,jj,jk)
      &    +grazz(ji,jj,jk)*ferat3+grazpof(ji,jj,jk)