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

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

@@ -6 +6 @@
 CDIR$ LIST
       SUBROUTINE p4zsed
-#if defined key_passivetrc && defined key_trc_pisces
+#if defined key_top && defined key_pisces
 CCC---------------------------------------------------------------------
 CCC
@@ -145 +145 @@
             zfact=e1t(ji,jj)*e2t(ji,jj)/rjjss*tmask_i(ji,jj)
             sumsedsi=sumsedsi+zfact*trn(ji,jj,ikt,jpdsi)
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
      &               *wsbio4(ji,jj,ikt) 
 #else
@@ -152 +152 @@
             sumsedcal=sumsedcal+trn(ji,jj,ikt,jpcal)*wscal(ji,jj,ikt)
      &          *2.*zfact
-#if  defined key_trc_kriest
+#if  defined key_kriest
             sumsedpo4=sumsedpo4+
      &          (trn(ji,jj,ikt,jppoc)*wsbio3(ji,jj,ikt))*zfact
@@ -178 +178 @@
             ikt=max(mbathy(ji,jj)-1,1)
             xconctmp=trn(ji,jj,ikt,jpdsi)*zstep/fse3t(ji,jj,ikt)
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
      &               *wsbio4(ji,jj,ikt) 
 #else
@@ -205 +205 @@
           DO ji=1,jpi
             ikt=max(mbathy(ji,jj)-1,1)
-#if ! defined key_trc_kriest
+#if ! defined key_kriest
             xconctmp=trn(ji,jj,ikt,jpgoc)
             xconctmp2=trn(ji,jj,ikt,jppoc)