Changeset 790 for branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcsed.F90

Timestamp:

2008-01-12T11:10:18+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - complete theprevious comit with omitted routines

File:

• branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcsed.F90 (modified) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcsed.F90

@@ -28 +28 @@
    !!----------------------------------------------------------------------
    !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
-   !! $Id:$ 
+   !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -90 +90 @@
 # endif
 # if defined key_trc_diaadd
+!!gm  bug introduced: no more mask below jpkb ! 
                trc2d(ji,jj,8) = trc2d(ji,jj,8) + ztra * fse3t(ji,jj,jk) * 86400.
 # endif
@@ -97 +98 @@
 
 #if defined key_trc_diabio
-      CALL lbc_lnk (trbio(:,:,1,8), 'T', 1. )    ! Lateral boundary conditions on trcbio
+      CALL lbc_lnk( trbio(:,:,1,8), 'T', 1. )    ! Lateral boundary conditions on trcbio
 #endif
 #if defined key_trc_diaadd