Changeset 3989 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

Timestamp:

2013-07-24T11:48:35+02:00 (11 years ago)

Author:

clevy

Message:

Configuration setting/Step3 and doc, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90 (modified) (1 diff)

branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

@@ -168 +168 @@
          SELECT CASE ( jp_cfg )
          CASE ( 2 )                               !  ORCA_R2 configuration
-            IF(  jpiglo  == 142    .AND. jpjglo  ==  53 .AND.   &
-               & jpizoom ==  21    .AND. jpjzoom ==  97         )   lzoom_arct = .TRUE.
-            IF(  jpiglo  == jpidta .AND. jpjglo  ==  50 .AND.   &
-               & jpizoom ==   1    .AND. jpjzoom ==   1         )   lzoom_anta = .TRUE.
+            IF(  cp_cfz == "arctic"    .AND. jpiglo  == 142    .AND. jpjglo  ==  53 .AND.   &
+               & jpizoom ==  21    .AND. jpjzoom ==  97         )   THEN
+              IF(lwp) WRITE(numout,*) '          ORCA configuration: arctic zoom '
+            ENDIF
+            IF(  cp_cfz == "antarctic" .AND. jpiglo  == jpidta .AND. jpjglo  ==  50 .AND.   &
+               & jpizoom ==   1    .AND. jpjzoom ==   1         )   THEN
+              IF(lwp) WRITE(numout,*) '          ORCA configuration: antarctic zoom '
+            ENDIF
             !                             
          CASE ( 05 )                              !  ORCA_R05 configuration
-            IF(  jpiglo  == 562    .AND. jpjglo  == 202 .AND.   &
-               & jpizoom ==  81    .AND. jpjzoom == 301         )   lzoom_arct = .TRUE.
-            IF(  jpiglo  == jpidta .AND. jpjglo  == 187 .AND.   &
-               & jpizoom ==   1    .AND. jpjzoom ==   1         )   lzoom_anta = .TRUE.
+            IF(    cp_cfz == "arctic"    .AND. jpiglo  == 562    .AND. jpjglo  == 202 .AND.   &
+               & jpizoom ==  81    .AND. jpjzoom == 301         )   THEN
+              IF(lwp) WRITE(numout,*) '          ORCA configuration: arctic zoom '
+            ENDIF
+            IF(    cp_cfz == "antarctic" .AND. jpiglo  == jpidta .AND. jpjglo  == 187 .AND.   &
+               & jpizoom ==   1    .AND. jpjzoom ==   1         )   THEN
+              IF(lwp) WRITE(numout,*) '          ORCA configuration: antarctic zoom '
+            ENDIF
          END SELECT
-         !
-         IF(lwp) WRITE(numout,*) '          ORCA configuration: antarctic/arctic zoom flags : '
-         IF(lwp) WRITE(numout,*) '             lzoom_arct = ', lzoom_arct, ' (T=   arctic zoom, F=global)'
-         IF(lwp) WRITE(numout,*) '             lzoom_anta = ', lzoom_anta, ' (T=antarctic zoom, F=global)'
          !
       ENDIF