Changeset 2528 for trunk/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2010-12-27T18:33:53+01:00 (14 years ago)

Author:

rblod

Message:

Update NEMOGCM from branch nemo_v3_3_beta

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (3 diffs, 1 prop)

trunk/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -21 +21 @@
    USE lib_mpp         ! distributed memory computing
    USE dynspg_oce      ! pressure gradient schemes 
+   USE c1d             ! 1D vertical configuration
 
    IMPLICIT NONE
@@ -27 +28 @@
    PUBLIC stp_ctl           ! routine called by step.F90
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
+   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
    !! $Id$
-   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -139 +140 @@
 9500  FORMAT (' kt=',i6,' min SSS: ',1pg11.4,', i j: ',2i5)
 
+      
+      IF( lk_c1d )  RETURN          ! No log file in case of 1D vertical configuration
+
       ! log file (solver or ssh statistics)
       ! --------