Changeset 11992 for NEMO/branches/2019/ENHANCE-03_closea/src/OCE/SBC

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/SBC/sbcclo.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-03_closea/src/OCE/SBC/sbcclo.F90

@@ -185 +185 @@
          !
          !! 0. find group number for cs number jcs
-         imskgrp = kmaskcsgrp
-         imsksrc = kmaskcs
+         imskgrp(:,:) = kmaskcsgrp(:,:)
+         imsksrc(:,:) = kmaskcs(:,:)
          !
          ! set cs value where cs is defined
          ! imsk = HUGE outside the cs id jcs
-         imsk = HUGE(1)
-         WHERE ( imsksrc == jcs ) imsk = jcs
+         imsk(:,:) = HUGE(1)
+         WHERE ( imsksrc(:,:) == jcs ) imsk(:,:) = jcs
          !
          ! jtmp = jcs - group id for this lake
-         imsk = imsk - imskgrp
-         jtmp = MINVAL(imsk) ; CALL mpp_min('closea',jtmp)
+         imsk(:,:) = imsk(:,:) - imskgrp(:,:)
+         jtmp = MINVAL(imsk(:,:)) ; CALL mpp_min('closea',jtmp)
          ! kcsgrp = group id corresponding to the cs id jcs
          ! kcsgrp(jcs)=(jcs - (jcs - group id))=group id
@@ -201 +201 @@
          !
          !! 1. build the target river mouth mask for this lake
-         WHERE ( imskgrp * mask_opnsea == kcsgrp(jcs) )
-            imsktrg = 1
+         WHERE ( imskgrp(:,:) * mask_opnsea(:,:) == kcsgrp(jcs) )
+            imsktrg(:,:) = 1
          ELSE WHERE
-            imsktrg = 0
+            imsktrg(:,:) = 0
          END WHERE
          !
@@ -308 +308 @@
          !! 4. Add residuals to target points 
          !!    Do not use pqcs(:,:) = pqcs(:,:) - rcp * zcsfw  * sst_m(:,:) / zsurftrg 
-         !!    as there is no reason for heat conservation with this formulation
+         !!    as there is no reason heat will be conserved with this formulation
          zcsh   = glob_sum( 'closea', e1e2t(:,:) * rcp * zcsfwf * sst_m(:,:) * imsk_src(:,:) )
          WHERE( imsk_trg(:,:) == kcsgrp(jcs) )