Changeset 2409 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2010-11-19T16:30:38+01:00 (13 years ago)

Author:

cetlod

Message:

Finalize the new organisation of 1D vertical configuration, see ticket #760

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/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
@@ -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)
       ! --------