Changeset 339 for trunk/NEMO/TOP_SRC/SMS/p4zsink2.F

Timestamp:

2005-11-14T13:30:28+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_027 : CE + RB + CT : update of SMS routines

File:

• trunk/NEMO/TOP_SRC/SMS/p4zsink2.F (modified) (4 diffs)

trunk/NEMO/TOP_SRC/SMS/p4zsink2.F

@@ -1 @@
-CCC$Header$
-CCC  TOP 1.0 , LOCEAN-IPSL (2005)
-C This software is governed by CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
-C ---------------------------------------------------------------------------
       SUBROUTINE p4zsink2(wstmp,sinktemp,jn)
 CDIR$ LIST
@@ -45 +41 @@
       USE sms
       IMPLICIT NONE
+#include "domzgr_substitute.h90"
 CDIR$ LIST
 CC-----------------------------------------------------------------
@@ -57 +54 @@
       REAL wstmp2(jpi,jpj,jpk)
 
-!!----------------------------------------------------------------------
-!! statement functions
-!! ===================
-!DIR$ NOLIST
-#include "domzgr_substitute.h90"
-!DIR$ LIST
 !!!---------------------------------------------------------------------
 !!!  OPA8, LODYC (01/00)
@@ -135 +126 @@
          sinktemp(:,:,1)=0.
          sinktemp(:,:,jpk)=0.
+C
+       DO jk=1,jpkm1
+          DO jj = 1,jpj
+            DO ji = 1, jpi
+!
+            trn(ji,jj,jk,jn) = trn(ji,jj,jk,jn)
+     &        + (sinktemp(ji,jj,jk)-sinktemp(ji,jj,jk+1))
+     &        /fse3t(ji,jj,jk)
+!
+            ENDDO
+          ENDDO
+        ENDDO
+!
+        trb(:,:,:,jn)=trn(:,:,:,jn)
 !
 #endif