Changeset 260 for trunk/NEMO/TOP_SRC/SMS/p4zopt.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/p4zopt.F (modified) (3 diffs)

trunk/NEMO/TOP_SRC/SMS/p4zopt.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 ---------------------------------------------------------------------------
 CDIR$ LIST
       SUBROUTINE p4zopt
@@ -51 +46 @@
 CC local declarations
 CC ==================
-      INTEGER ji, jj, jk, kmoy(jpi,jpj), mrgb
+      INTEGER ji, jj, jk, mrgb
       REAL xchl,ekg,ekr,ekb,xlim1,xlim2,xlim3,xlim4
-      REAL ekb1,ekr1,ekg1
       REAL parlux,e1(jpi,jpj,jpk),e2(jpi,jpj,jpk),e3(jpi,jpj,jpk)
       REAL zdepmoy(jpi,jpj)
@@ -248 +242 @@
       RETURN
       END
-