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 7029 for branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90 – NEMO

Ignore:
Timestamp:
2016-10-14T11:10:43+02:00 (7 years ago)
Author:
jamesharle
Message:

Adding ORCHESTRA configuration
Merging with branches/2016/dev_r5549_BDY_ZEROGRAD
Merging with branches/2016/dev_r5840_BDY_MSK
Merging with branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r6998_ORCHESTRA/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r6412 r7029  
    4141      USE in_out_manager  ! I/O Manager 
    4242      USE iom 
     43#if defined key_bdy 
     44      USE bdy_oce 
     45#endif 
    4346      !!  
    4447      INTEGER :: ji, jj, jn, jproc, jarea     ! dummy loop indices 
     
    7376      ! read namelist for ln_zco 
    7477      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco, ln_isfcav, ln_linssh 
    75  
     78#if defined key_bdy 
     79      NAMELIST/nambdy/ nb_bdy, ln_coords_file, cn_coords_file,                 & 
     80         &             ln_mask_file, cn_mask_file, cn_dyn2d, nn_dyn2d_dta,     & 
     81         &             cn_dyn3d, nn_dyn3d_dta, cn_tra, nn_tra_dta,             &   
     82         &             ln_tra_dmp, ln_dyn3d_dmp, rn_time_dmp, rn_time_dmp_out, & 
     83         &             cn_ice_lim, nn_ice_lim_dta,                           & 
     84         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                 & 
     85         &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
     86#endif 
    7687      !!---------------------------------------------------------------------- 
    7788      !!  OPA 9.0 , LOCEAN-IPSL (2005)  
     
    137148      imask(:,:)=1 
    138149      WHERE ( zdta(:,:) - zdtaisf(:,:) <= rn_isfhmin ) imask = 0 
     150 
     151#if defined key_bdy 
     152      ! Adjust imask with bdy_msk if exists 
     153 
     154      REWIND( numnam_ref )              ! Namelist nambdy in reference namelist : BDY 
     155      READ  ( numnam_ref, nambdy, IOSTAT = ios, ERR = 903) 
     156903   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist (mppini_2)', lwp ) 
     157 
     158      REWIND( numnam_cfg )              ! Namelist nambdy in configuration namelist : BDY 
     159      READ  ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 904 ) 
     160904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist (mppini_2)', lwp ) 
     161      IF(lwm) WRITE ( numond, namzgr ) 
     162 
     163      IF( ln_mask_file ) THEN 
     164         CALL iom_open( cn_mask_file, inum ) 
     165         CALL iom_get ( inum, jpdom_unknown, 'bdy_msk', zdta(:,:), kstart=(/jpizoom,jpjzoom/), kcount=(/jpiglo,jpjglo/) ) 
     166         CALL iom_close( inum ) 
     167         WHERE ( zdta(:,:) <= 0. ) imask = 0 
     168      ENDIF 
     169#endif 
    139170 
    140171      !  1. Dimension arrays for subdomains 
Note: See TracChangeset for help on using the changeset viewer.