Changeset 11207 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/domain.F90

Timestamp:

2019-07-02T19:32:41+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-03_closea: closea correction change to match new closea mask in domain_cfg (ticket #2143)

Location:

NEMO/branches/2019/ENHANCE-03_closea

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/DOM/domain.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/domain.F90

@@ -134 +134 @@
       ENDIF
       !
-      CALL dom_hgr                     ! Horizontal mesh
-      CALL dom_zgr( ik_top, ik_bot )   ! Vertical mesh and bathymetry
-      CALL dom_msk( ik_top, ik_bot )   ! Masks
-      IF( ln_closea )   CALL dom_clo   ! ln_closea=T : closed seas included in the simulation
-                                       ! Read in masks to define closed seas and lakes 
-      !
-      DO jj = 1, jpj                   ! depth of the iceshelves
+      CALL dom_hgr                      ! Horizontal mesh
+
+      IF( ln_closea ) CALL dom_clo      ! Read in masks to define closed seas and lakes
+
+      CALL dom_zgr( ik_top, ik_bot )    ! Vertical mesh and bathymetry
+
+      CALL dom_msk( ik_top, ik_bot )    ! Masks
+      !
+      DO jj = 1, jpj                    ! depth of the iceshelves
          DO ji = 1, jpi
             ik = mikt(ji,jj)