Changeset 11604 for NEMO/branches/2019/ENHANCE-03_domcfg/src/domain.F90

Timestamp:

2019-09-26T18:48:45+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-03_domcfg: remove useless variable in domclo and domutil + cosmetics changes (ticket #2143)

File:

• NEMO/branches/2019/ENHANCE-03_domcfg/src/domain.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-03_domcfg/src/domain.F90

@@ -61 +61 @@
       !!              - 1D configuration, move Coriolis, u and v at T-point
       !!----------------------------------------------------------------------
-      INTEGER ::   jk          ! dummy loop indices
-      INTEGER ::   iconf = 0   ! local integers
-      REAL(wp), POINTER, DIMENSION(:,:) ::   z1_hu_0, z1_hv_0
-      !!----------------------------------------------------------------------
       !
       IF(lwp) THEN
@@ -80 +76 @@
       CALL dom_zgr                  ! Vertical mesh and bathymetry
       !
-      IF ( ln_domclo .OR. nmsh > 0 ) CALL dom_msk                  ! compute mask (needed by dom_clo
+      IF ( ln_domclo .OR. nn_msh > 0 ) CALL dom_msk ! compute mask (needed by dom_clo)
       !
       IF ( ln_domclo ) CALL dom_clo ! Closed seas and lake
@@ -420 +416 @@
       IF (ln_domclo) THEN
          ! mask for the open sea
-         CALL iom_rstput( 0, 0, inum, 'mask_opensea', msk_opnsea, ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_opensea' , msk_opnsea, ktype = jp_i4 )
          ! mask for all the under closed sea
-         CALL iom_rstput( 0, 0, inum, 'mask_csundef', msk_closea, ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csundef' , msk_closea, ktype = jp_i4 )
          ! mask for global, local net precip, local net precip and evaporation correction
-         CALL iom_rstput( 0, 0, inum, 'mask_csglo', msk_glo, ktype = jp_i4 )
-         CALL iom_rstput( 0, 0, inum, 'mask_csemp', msk_emp, ktype = jp_i4 )
-         CALL iom_rstput( 0, 0, inum, 'mask_csrnf', msk_rnf, ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csglo'   , msk_glo   , ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csemp'   , msk_emp   , ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csrnf'   , msk_rnf   , ktype = jp_i4 )
          ! mask for the various river mouth (in case multiple lake in the same outlet)
-         CALL iom_rstput( 0, 0, inum, 'mask_csgrpglo', msk_gloid, ktype = jp_i4 )
-         CALL iom_rstput( 0, 0, inum, 'mask_csgrpemp', msk_empid, ktype = jp_i4 )
-         CALL iom_rstput( 0, 0, inum, 'mask_csgrprnf', msk_rnfid, ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csgrpglo', msk_gloid , ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csgrpemp', msk_empid , ktype = jp_i4 )
+         CALL iom_rstput( 0, 0, inum, 'mask_csgrprnf', msk_rnfid , ktype = jp_i4 )
       END IF
       !