- Timestamp:
- 2019-12-10T15:16:33+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DOM/domzgr.F90
r10425 r12150 71 71 INTEGER, DIMENSION(:,:), INTENT(out) :: k_top, k_bot ! ocean first and last level indices 72 72 ! 73 INTEGER :: jk ! dummy loop index 73 INTEGER :: ji,jj,jk ! dummy loop index 74 INTEGER :: ikt, ikb ! top/bot index 74 75 INTEGER :: ioptio, ibat, ios ! local integer 75 76 REAL(wp) :: zrefdep ! depth of the reference level (~10m) … … 118 119 ! Any closed seas (defined by closea_mask > 0 in domain_cfg file) to be filled 119 120 ! in at runtime if ln_closea=.false. 120 IF( .NOT.ln_closea ) CALL clo_bat( k_top, k_bot ) 121 IF( ln_closea ) THEN 122 IF ( ln_maskcs ) THEN 123 ! mask all the closed sea 124 CALL clo_msk( k_top, k_bot, mask_opnsea, 'mask_opensea' ) 125 ELSE IF ( ln_mask_csundef ) THEN 126 ! defined closed sea are kept 127 ! mask all the undefined closed sea 128 CALL clo_msk( k_top, k_bot, mask_csundef, 'mask_csundef' ) 129 END IF 130 END IF 121 131 ! 122 132 IF(lwp) THEN ! Control print … … 138 148 ! ! top/bottom ocean level indices for t-, u- and v-points (f-point also for top) 139 149 CALL zgr_top_bot( k_top, k_bot ) ! with a minimum value set to 1 140 141 150 ! 151 ! ! ice shelf draft and bathymetry 152 DO jj = 1,jpj 153 DO ji = 1,jpi 154 ikt = mikt(ji,jj) 155 ikb = mbkt(ji,jj) 156 bathy (ji,jj) = gdepw_0(ji,jj,ikb+1) 157 risfdep(ji,jj) = gdepw_0(ji,jj,ikt ) 158 END DO 159 END DO 160 ! 142 161 ! ! deepest/shallowest W level Above/Below ~10m 143 162 !!gm BUG in s-coordinate this does not work!
Note: See TracChangeset
for help on using the changeset viewer.