Ignore:
Timestamp:
2019-11-27T18:40:38+01:00 (8 months ago)
Author:
mathiot
Message:

ENHANCE-03_closea: cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/closea.F90

    r11656 r11992  
    6666      !! ** Purpose :   Closed sea domain initialization 
    6767      !! 
    68       !! ** Method  :   if a closed sea is located only in a model grid point 
    69       !!                just the thermodynamic processes are applied. 
    70       !! 
    7168      !! ** Action  :   Read mask_cs* fields (if needed) from domain_cfg file and infer 
    7269      !!                number of closed seas for each case (glo, rnf, emp) from mask_cs* field. 
     
    106103      ! ------------------------------------------------------------------------------ 
    107104      ! 
    108       ! load mask of open sea and undefined closed seas 
     105      ! load mask of open sea 
    109106      CALL alloc_csmask( mask_opnsea ) 
    110107      CALL read_csmask( cn_domcfg, 'mask_opensea' , mask_opnsea  ) 
     
    154151         ! 
    155152         ! allocate closed sea group masks  
    156          !(used to defined the target area in case multiple lakes have the same river mouth (great lakes for example) 
     153         !(used to defined the target area in case multiple lakes have the same river mouth (great lakes for example)) 
    157154         CALL alloc_csmask( mask_csgrpglo ) 
    158155         CALL alloc_csmask( mask_csgrprnf ) 
Note: See TracChangeset for help on using the changeset viewer.