Changeset 7189 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90

Timestamp:

2016-11-04T08:17:27+01:00 (7 years ago)

Author:

gm

Message:

#1692 - branch SIMPLIF_2_usrdef: e3.=dk[dep.] TOOLS update + domzgr style

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90 (modified) (5 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/nemogcm.f90

@@ -89 +89 @@
       !!----------------------------------------------------------------------
       !
-
-
-
-
       !                            !-----------------------!
       CALL nemo_init               !==  Initialisations  ==!
       !                            !-----------------------!
 
-
-
-
       ! check that all process are still there... If some process have an error,
       ! they will never enter in step and other processes will wait until the end of the cpu time!
@@ -115 +108 @@
       ENDIF
       !
-
-
-
-
-
-
-
       IF( nn_timing == 1 )   CALL timing_finalize
       !
       CALL nemo_closefile
       !
-
       CALL xios_finalize                  ! end mpp communications with xios
-
-
-
       !
    END SUBROUTINE nemo_gcm
@@ -149 +131 @@
          &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   &
          &             nn_bench, nn_timing, nn_diacfl
-      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
+      NAMELIST/namcfg/ ln_e2_dep,                                &
+         &             cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, &
          &             jpizoom, jpjzoom, jperio, ln_use_jattr
       !!----------------------------------------------------------------------
@@ -305 +288 @@
          WRITE(numout,*) '~~~~~~~ '
          WRITE(numout,*) '   Namelist namcfg'
+         WRITE(numout,*) '      vertical scale factors =T: e3.=dk[depth]       ln_e2_dep = ', ln_e2_dep
+         WRITE(numout,*) '                             =F: old definition                 '
          WRITE(numout,*) '      configuration name                               cp_cfg  = ', TRIM(cp_cfg)
          WRITE(numout,*) '      configuration zoom name                          cp_cfz  = ', TRIM(cp_cfz)
@@ -317 +302 @@
          WRITE(numout,*) '      lateral cond. type (between 0 and 6)             jperio  = ', jperio   
          WRITE(numout,*) '      use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr
+         !
+         IF(.NOT.ln_e2_dep ) THEN
+            WRITE(numout,cform_war)
+            WRITE(numout,*)
+            WRITE(numout,*) '      ===>>>>    Obsolescent definition of e3 scale factors is used'
+            WRITE(numout,*)
+         ENDIF
       ENDIF
       !                             ! Parameter control