Changeset 11992 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/closea.F90

Timestamp:

2019-11-27T18:40:38+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-03_closea: cosmetic changes

File:

• NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/closea.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-03_closea/src/OCE/DOM/closea.F90

@@ -66 +66 @@
       !! ** Purpose :   Closed sea domain initialization
       !!
-      !! ** Method  :   if a closed sea is located only in a model grid point
-      !!                just the thermodynamic processes are applied.
-      !!
       !! ** Action  :   Read mask_cs* fields (if needed) from domain_cfg file and infer
       !!                number of closed seas for each case (glo, rnf, emp) from mask_cs* field.
@@ -106 +103 @@
       ! ------------------------------------------------------------------------------
       !
-      ! load mask of open sea and undefined closed seas
+      ! load mask of open sea
       CALL alloc_csmask( mask_opnsea )
       CALL read_csmask( cn_domcfg, 'mask_opensea' , mask_opnsea  )
@@ -154 +151 @@
          !
          ! allocate closed sea group masks 
-         !(used to defined the target area in case multiple lakes have the same river mouth (great lakes for example)
+         !(used to defined the target area in case multiple lakes have the same river mouth (great lakes for example))
          CALL alloc_csmask( mask_csgrpglo )
          CALL alloc_csmask( mask_csgrprnf )