Ignore:
Timestamp:
2019-09-26T18:48:45+02:00 (12 months ago)
Author:
mathiot
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-03_domcfg/src/domain.F90

    r11201 r11604  
    6161      !!              - 1D configuration, move Coriolis, u and v at T-point 
    6262      !!---------------------------------------------------------------------- 
    63       INTEGER ::   jk          ! dummy loop indices 
    64       INTEGER ::   iconf = 0   ! local integers 
    65       REAL(wp), POINTER, DIMENSION(:,:) ::   z1_hu_0, z1_hv_0 
    66       !!---------------------------------------------------------------------- 
    6763      ! 
    6864      IF(lwp) THEN 
     
    8076      CALL dom_zgr                  ! Vertical mesh and bathymetry 
    8177      ! 
    82       IF ( ln_domclo .OR. nmsh > 0 ) CALL dom_msk                  ! compute mask (needed by dom_clo 
     78      IF ( ln_domclo .OR. nn_msh > 0 ) CALL dom_msk ! compute mask (needed by dom_clo) 
    8379      ! 
    8480      IF ( ln_domclo ) CALL dom_clo ! Closed seas and lake 
     
    420416      IF (ln_domclo) THEN 
    421417         ! mask for the open sea 
    422          CALL iom_rstput( 0, 0, inum, 'mask_opensea', msk_opnsea, ktype = jp_i4 ) 
     418         CALL iom_rstput( 0, 0, inum, 'mask_opensea' , msk_opnsea, ktype = jp_i4 ) 
    423419         ! mask for all the under closed sea 
    424          CALL iom_rstput( 0, 0, inum, 'mask_csundef', msk_closea, ktype = jp_i4 ) 
     420         CALL iom_rstput( 0, 0, inum, 'mask_csundef' , msk_closea, ktype = jp_i4 ) 
    425421         ! mask for global, local net precip, local net precip and evaporation correction 
    426          CALL iom_rstput( 0, 0, inum, 'mask_csglo', msk_glo, ktype = jp_i4 ) 
    427          CALL iom_rstput( 0, 0, inum, 'mask_csemp', msk_emp, ktype = jp_i4 ) 
    428          CALL iom_rstput( 0, 0, inum, 'mask_csrnf', msk_rnf, ktype = jp_i4 ) 
     422         CALL iom_rstput( 0, 0, inum, 'mask_csglo'   , msk_glo   , ktype = jp_i4 ) 
     423         CALL iom_rstput( 0, 0, inum, 'mask_csemp'   , msk_emp   , ktype = jp_i4 ) 
     424         CALL iom_rstput( 0, 0, inum, 'mask_csrnf'   , msk_rnf   , ktype = jp_i4 ) 
    429425         ! mask for the various river mouth (in case multiple lake in the same outlet) 
    430          CALL iom_rstput( 0, 0, inum, 'mask_csgrpglo', msk_gloid, ktype = jp_i4 ) 
    431          CALL iom_rstput( 0, 0, inum, 'mask_csgrpemp', msk_empid, ktype = jp_i4 ) 
    432          CALL iom_rstput( 0, 0, inum, 'mask_csgrprnf', msk_rnfid, ktype = jp_i4 ) 
     426         CALL iom_rstput( 0, 0, inum, 'mask_csgrpglo', msk_gloid , ktype = jp_i4 ) 
     427         CALL iom_rstput( 0, 0, inum, 'mask_csgrpemp', msk_empid , ktype = jp_i4 ) 
     428         CALL iom_rstput( 0, 0, inum, 'mask_csgrprnf', msk_rnfid , ktype = jp_i4 ) 
    433429      END IF 
    434430      ! 
Note: See TracChangeset for help on using the changeset viewer.