Changeset 6950


Ignore:
Timestamp:
2016-09-23T15:36:33+02:00 (4 years ago)
Author:
jamesharle
Message:

update mppini_2.h90 to account for the bdy_msk (if used) to allow full land supression

Location:
branches/NERC/dev_r5840_BDY_MSK/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5840_BDY_MSK/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r6948 r6950  
    130130         &             cn_ice_lim, nn_ice_lim_dta,                           & 
    131131         &             rn_ice_tem, rn_ice_sal, rn_ice_age,                 & 
    132          &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy 
     132         &             ln_vol, nn_volctl, nn_rimwidth 
    133133#endif 
    134134      !!--------------------------------------------------------------------- 
  • branches/NERC/dev_r5840_BDY_MSK/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r5130 r6950  
    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 
    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 
     86#endif 
    7687      !!---------------------------------------------------------------------- 
    7788      !!  OPA 9.0 , LOCEAN-IPSL (2005)  
     
    137148      imask(:,:)=1 
    138149      WHERE ( zdta(:,:) - zdtaisf(:,:) <= 0. ) 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.