Changeset 260 for trunk/NEMO/TOP_SRC/SMS/p4zbio.F

Timestamp:

2005-09-08T15:16:47+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_005:RB+OA: Update and rewritting of (part of) the TOP component.

File:

• trunk/NEMO/TOP_SRC/SMS/p4zbio.F (modified) (5 diffs)

trunk/NEMO/TOP_SRC/SMS/p4zbio.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 p4zbio
 CDIR$ LIST
@@ -33 +28 @@
       USE trp_trc
       USE sms
+      USE lib_mpp
+      USE lbclnk
       IMPLICIT NONE
 CDIR$ LIST
@@ -46 +43 @@
       REAL irondep(jpi,jpj,jpk),sidep(jpi,jpj,jpk),prodt
       INTEGER jn
-      REAL ztraa, ztrab, ztran
 C
 CC----------------------------------------------------------------------
@@ -883 +879 @@
       ENDDO
 C
+      DO jn=1 , jptra
+        CALL lbc_lnk(trn(:,:,:,jn), 'T', 1. )
+      END DO
+
 #    if defined key_trc_diaadd
        DO jj=1,jpj
@@ -908 +908 @@
       RETURN
       END
-
-
-