Changeset 297 for trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

Timestamp:

2005-09-22T12:57:33+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_010 : CT : comments correction, use ln_zdfnpc and ln_zdfevd instead of the no more existing cpp keys key_convnpc and key_convevd

File:

• trunk/NEMO/OPA_SRC/ZDF/zdfini.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/ZDF/zdfini.F90

@@ -43 +43 @@
       !! ** Purpose :   initializations of the vertical ocean physics
       !!
-      !! ** Method  :   Read namelist namzdf, control cpp keys
+      !! ** Method  :   Read namelist namzdf, control logicals 
       !!
       !! History :
@@ -84 +84 @@
       ENDIF
 
-      ! Parameter & key controls
-      ! ------------------------
+      ! Parameter & logicals controls
+      ! -----------------------------
       ! ... vertical mixing
       ! time stepping scheme (N.B. TKE or KPP schemes => force the use of implicit scheme)
@@ -172 +172 @@
       IF ( ioptio > 1 .AND. .NOT. lk_esopa ) THEN
           IF(lwp) WRITE(numout,cform_err)
-          IF(lwp) WRITE(numout,*) ' chose between key_convnpc'
-          IF(lwp) WRITE(numout,*) '           and key_convevd'
+          IF(lwp) WRITE(numout,*) ' chose between ln_zdfnpc'
+          IF(lwp) WRITE(numout,*) '           and ln_zdfevd'
           nstop = nstop + 1
       ENDIF
@@ -179 +179 @@
          IF(lwp) WRITE(numout,cform_err)
          IF(lwp) WRITE(numout,*) ' except for TKE scheme, a convection scheme is'
-         IF(lwp) WRITE(numout,*) ' required: convevd or convnpc keys'
+         IF(lwp) WRITE(numout,*) ' required: ln_zdfevd or ln_zdfnpc logicals'
          nstop = nstop + 1
       ENDIF