Changeset 274 for trunk/NEMO/TOP_SRC/SMS/p4zopt.F

Timestamp:

2005-09-12T11:05:10+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_005:RB: update headers for the TOP component.

File:

• trunk/NEMO/TOP_SRC/SMS/p4zopt.F (modified) (2 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
@@ -122 +126 @@
         e3(ji,jj,jk+1) = e3(ji,jj,jk+1)*exp(-ekr*fse3t(ji,jj,jk)/2.)
 
-        e3lum(ji,jj,jk+1) = e3lum(ji,jj,jk)*exp(-ekb*fse3t(ji,jj,jk))
-        e4lum(ji,jj,jk+1) = e4lum(ji,jj,jk)*exp(-ekg*fse3t(ji,jj,jk))
-        e5lum(ji,jj,jk+1) = e5lum(ji,jj,jk)*exp(-ekr*fse3t(ji,jj,jk))
-        e6lum(ji,jj,jk+1) = e6lum(ji,jj,jk)*exp(-fse3t(ji,jj,jk)/xsi1)
+        e3lum(ji,jj,jk+1)=e3lum(ji,jj,jk)*exp(-ekb*fse3t(ji,jj,jk))
+        e4lum(ji,jj,jk+1)=e4lum(ji,jj,jk)*exp(-ekg*fse3t(ji,jj,jk))
+        e5lum(ji,jj,jk+1)=e5lum(ji,jj,jk)*exp(-ekr*fse3t(ji,jj,jk))
+        e6lum(ji,jj,jk+1)=e6lum(ji,jj,jk)*exp(-fse3t(ji,jj,jk)/xsi1)
 C
             END DO