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 15271 for NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/dom_oce.f90 – NEMO

Ignore:
Timestamp:
2021-09-20T11:12:08+02:00 (17 months ago)
Author:
dbruciaferri
Message:

rewriting saw tooth dignostic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/tools_r4.0-HEAD_dev_MEs/DOMAINcfg/src/dom_oce.f90

    r15121 r15271  
    244244 
    245245   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:) ::   tpol, fpol          !: north fold mask (jperio= 3 or 4) 
     246 
     247   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: mes_msk      ! mask for local-ME coordinates (ln_loc_mes=TRUE)   
     248                                                                       !    MEs-area (=1), 
     249                                                                       !    z-area (=0) 
     250 
    246251 
    247252   !!---------------------------------------------------------------------- 
     
    367372         &     tmask_i(jpi,jpj) , tmask_h(jpi,jpj) ,                                       &  
    368373         &     ssmask (jpi,jpj) , ssumask(jpi,jpj) , ssvmask(jpi,jpj) , ssfmask(jpi,jpj) , & 
    369          &     mbkt   (jpi,jpj) , mbku   (jpi,jpj) , mbkv   (jpi,jpj) , STAT=ierr(9) ) 
     374         &     mbkt   (jpi,jpj) , mbku   (jpi,jpj) , mbkv   (jpi,jpj) , mes_msk(jpi,jpj) , STAT=ierr(9) ) 
    370375 
    371376! (ISF) Allocation of basic array    
Note: See TracChangeset for help on using the changeset viewer.