- Timestamp:
- 2021-03-24T11:06:04+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools/DOMAINcfg/src/agrif_dom_update.F90
r14623 r14634 55 55 ssmask(i1:i2,j1:j2) = 1. 56 56 END WHERE 57 zk(:,:) = REAL(mbkt(:,:),wp); CALL lbc_lnk('update_bottom',zk,'T',1.); mbkt(:,:) = MAX(NINT(zk(:,:)),1)58 CALL lbc_lnk('update_bottom',ssmask,'T',1.)57 ! zk(:,:) = REAL(mbkt(:,:),wp); CALL lbc_lnk('update_bottom',zk,'T',1.); mbkt(:,:) = MAX(NINT(zk(:,:)),1) 58 ! CALL lbc_lnk('update_bottom',ssmask,'T',1.) 59 59 ENDIF 60 60 ! … … 98 98 END DO 99 99 100 CALL lbc_lnk('update_e3t',e3t_0,'T',1.,kfillmode = jpfillcopy)100 ! CALL lbc_lnk('update_e3t',e3t_0,'T',1.,kfillmode = jpfillcopy) 101 101 ! 102 102 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.