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

trunk/NEMO/TOP_SRC/SMS/p4zday.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 p4zday
@@ -55 +50 @@
       iyy = ndastp/10000
 
-       write(numout,*)
-       write(numout,*) 'p4zday - Julian day ', nday_year
-       write(numout,*)
+       IF(lwp) write(numout,*)
+       IF(lwp) write(numout,*) 'p4zday - Julian day ', nday_year
+       IF(lwp) write(numout,*)
 
 
@@ -85 +80 @@
       RETURN
       END
-