Ignore:
Timestamp:
2019-07-02T19:32:41+02:00 (15 months 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:
1 edited
1 copied

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/domain.F90

    r10425 r11207  
    134134      ENDIF 
    135135      ! 
    136       CALL dom_hgr                     ! Horizontal mesh 
    137       CALL dom_zgr( ik_top, ik_bot )   ! Vertical mesh and bathymetry 
    138       CALL dom_msk( ik_top, ik_bot )   ! Masks 
    139       IF( ln_closea )   CALL dom_clo   ! ln_closea=T : closed seas included in the simulation 
    140                                        ! Read in masks to define closed seas and lakes  
    141       ! 
    142       DO jj = 1, jpj                   ! depth of the iceshelves 
     136      CALL dom_hgr                      ! Horizontal mesh 
     137 
     138      IF( ln_closea ) CALL dom_clo      ! Read in masks to define closed seas and lakes 
     139 
     140      CALL dom_zgr( ik_top, ik_bot )    ! Vertical mesh and bathymetry 
     141 
     142      CALL dom_msk( ik_top, ik_bot )    ! Masks 
     143      ! 
     144      DO jj = 1, jpj                    ! depth of the iceshelves 
    143145         DO ji = 1, jpi 
    144146            ik = mikt(ji,jj) 
Note: See TracChangeset for help on using the changeset viewer.