Ignore:
Timestamp:
2019-12-11T10:55:06+01:00 (10 months ago)
Author:
cetlod
Message:

dev_merge_option2 : merge in ENHANCE-03_closea branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/DOM/domain.F90

    r12166 r12172  
    3030   USE trc_oce        ! shared ocean & passive tracers variab 
    3131   USE phycst         ! physical constants 
    32    USE closea         ! closed seas 
    3332   USE domhgr         ! domain: set the horizontal mesh 
    3433   USE domzgr         ! domain: set the vertical mesh 
     
    3837   USE c1d            ! 1D configuration 
    3938   USE dyncor_c1d     ! 1D configuration: Coriolis term    (cor_c1d routine) 
    40    USE wet_dry,  ONLY : ll_wd 
     39   USE wet_dry, ONLY : ll_wd 
     40   USE closea , ONLY : dom_clo ! closed seas 
    4141   ! 
    4242   USE in_out_manager ! I/O manager 
     
    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  
     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 
    141141      ! 
    142142      ht_0(:,:) = 0._wp  ! Reference ocean thickness 
Note: See TracChangeset for help on using the changeset viewer.