New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5038 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OFF_SRC/domrea.F90 – NEMO

Ignore:
Timestamp:
2015-01-20T15:26:13+01:00 (9 years ago)
Author:
jamesharle
Message:

Merging branch with HEAD of the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OFF_SRC/domrea.F90

    r4569 r5038  
    164164 
    165165         CALL iom_get( inum4, jpdom_data, 'mbathy', zmbk )              ! number of ocean t-points 
    166          mbathy(:,:) = INT( zmbk(:,:) ) 
     166         mbathy (:,:) = INT( zmbk(:,:) ) 
     167         misfdep(:,:) = 1                                               ! ice shelf case not yet done 
    167168          
    168169         CALL zgr_bot_level                                             ! mbk. arrays (deepest ocean t-, u- & v-points 
     
    371372      ! 
    372373      mbkt(:,:) = MAX( mbathy(:,:) , 1 )    ! bottom k-index of T-level (=1 over land) 
     374      mikt(:,:) = 1 ; miku(:,:) = 1; mikv(:,:) = 1; ! top k-index of T-level (=1 over open ocean; >1 beneath ice shelf) 
    373375      !                                     ! bottom k-index of W-level = mbkt+1 
    374376      DO jj = 1, jpjm1                      ! bottom k-index of u- (v-) level 
Note: See TracChangeset for help on using the changeset viewer.