Changeset 3295 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90

Timestamp:

2012-01-30T16:49:07+01:00 (12 years ago)

Author:

cetlod

Message:

trunk:A few additional diagnostics added in PISCES

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zsed.F90

@@ -160 +160 @@
             ikt = mbkt(ji,jj) 
 # if defined key_kriest
-            zwork1(ji,jj) = trn(ji,jj,ikt,jpdsi) * wscal (ji,jj,ikt)
+            zwork1(ji,jj) = trn(ji,jj,ikt,jpgsi) * wscal (ji,jj,ikt)
             zwork2(ji,jj) = trn(ji,jj,ikt,jppoc) * wsbio3(ji,jj,ikt)
 # else
-            zwork1(ji,jj) = trn(ji,jj,ikt,jpdsi) * wsbio4(ji,jj,ikt)
+            zwork1(ji,jj) = trn(ji,jj,ikt,jpgsi) * wsbio4(ji,jj,ikt)
             zwork2(ji,jj) = trn(ji,jj,ikt,jpgoc) * wsbio4(ji,jj,ikt) + trn(ji,jj,ikt,jppoc) * wsbio3(ji,jj,ikt) 
 # endif
@@ -194 +194 @@
             zwscal  = wscal (ji,jj,ikt) * zdep
 # if defined key_kriest
-            zsiloss = trn(ji,jj,ikt,jpdsi) * zwsbio4
+            zsiloss = trn(ji,jj,ikt,jpgsi) * zwsbio4
 # else
-            zsiloss = trn(ji,jj,ikt,jpdsi) * zwscal
+            zsiloss = trn(ji,jj,ikt,jpgsi) * zwscal
 # endif
             zcaloss = trn(ji,jj,ikt,jpcal) * zwscal
             !
-            trn(ji,jj,ikt,jpdsi) = trn(ji,jj,ikt,jpdsi) - zsiloss
+            trn(ji,jj,ikt,jpgsi) = trn(ji,jj,ikt,jpgsi) - zsiloss
             trn(ji,jj,ikt,jpcal) = trn(ji,jj,ikt,jpcal) - zcaloss
 #if ! defined key_sed