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

Timestamp:

2013-07-12T13:54:28+02:00 (11 years ago)

Author:

clevy

Message:

Configuration setting/Step3, see ticket:#1074

File:

• branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90 (modified) (3 diffs)

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

@@ -79 +79 @@
       INTEGER ::   ji, jj   ! dummy loop argument
       !!----------------------------------------------------------------------
-
       !                        ! ============== !
       !                        !  Local domain  ! 
@@ -101 +100 @@
         mj1(jj) = MAX( 0, MIN( jj - jpjzoom + 1 - njmpp + 1, jpj   ) )
       END DO
-
       IF(lwp) THEN                   ! control print
          WRITE(numout,*)
@@ -152 +150 @@
       IF( lzoom .AND. jpiglo + jpizoom -1 /= jpidta )   lzoom_e = .TRUE.
       IF( lzoom .AND. jpjglo + jpjzoom -1 /= jpjdta )   lzoom_n = .TRUE.
-
       IF(lwp) THEN
          WRITE(numout,*)