Changeset 14634

Timestamp:

2021-03-24T11:06:04+01:00 (3 years ago)

Author:

jchanut

Message:

AGFdomcfg: temporary removal of lbclnk in procnames: this prevents using the tool in mpp mode, #2638

File:

• utils/tools/DOMAINcfg/src/agrif_dom_update.F90 (modified) (2 diffs)

utils/tools/DOMAINcfg/src/agrif_dom_update.F90

@@ -55 +55 @@
             ssmask(i1:i2,j1:j2) = 1.
          END WHERE 
-         zk(:,:) = REAL(mbkt(:,:),wp); CALL lbc_lnk('update_bottom',zk,'T',1.); mbkt(:,:) = MAX(NINT(zk(:,:)),1)
-         CALL lbc_lnk('update_bottom',ssmask,'T',1.)          
+!         zk(:,:) = REAL(mbkt(:,:),wp); CALL lbc_lnk('update_bottom',zk,'T',1.); mbkt(:,:) = MAX(NINT(zk(:,:)),1)
+!         CALL lbc_lnk('update_bottom',ssmask,'T',1.)          
       ENDIF
       !
@@ -98 +98 @@
          END DO
 
-         CALL lbc_lnk('update_e3t',e3t_0,'T',1.,kfillmode = jpfillcopy)
+!         CALL lbc_lnk('update_e3t',e3t_0,'T',1.,kfillmode = jpfillcopy)
          !
       ENDIF