Changeset 2240 for branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domain.F90

Timestamp:

2010-10-13T10:48:48+02:00 (14 years ago)

Author:

cetlod

Message:

Suppression of key_zco everywhere in the code

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domain.F90 (modified) (2 diffs)

branches/DEV_r2106_LOCEAN2010/NEMO/OFF_SRC/domain.F90

@@ -239 +239 @@
       !!              - vertical coordinate (gdep., e3.) depending on the 
       !!                coordinate chosen :
-      !!                   ln_zco=T   z-coordinate   (forced if lk_zco)
+      !!                   ln_zco=T   z-coordinate  
       !!                   ln_zps=T   z-coordinate with partial steps
       !!                   ln_zco=T   s-coordinate 
@@ -268 +268 @@
       IF( ln_sco ) ioptio = ioptio + 1
       IF ( ioptio /= 1 )   CALL ctl_stop( ' none or several vertical coordinate options used' )
-      IF( lk_zco ) THEN
-          IF(lwp) WRITE(numout,*) '          z-coordinate with reduced incore memory requirement'
-          IF( ln_zps .OR. ln_sco )   CALL ctl_stop( ' reduced memory with zps or sco option is impossible' )
-      ENDIF
 
       IF( nprint == 1 .AND. lwp )   THEN