Changeset 15182 for NEMO/trunk/src/TOP/PISCES

Timestamp:

2021-08-12T13:24:11+02:00 (3 years ago)

Author:

hadcv

Message:

Replace [15160] with an lbc_lnk for hmld in TOP

File:

• NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90 (modified) (2 diffs)

NEMO/trunk/src/TOP/PISCES/P4Z/p4zsms.F90

@@ -24 +24 @@
    USE trdtrc          ! TOP trends variables
    USE sedmodel        ! Sediment model
+   USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE prtctl          ! print control for debugging
 
@@ -120 +121 @@
       CALL p4z_che(     Kbb, Kmm       ) ! computation of chemical constants
       CALL p4z_int( kt, Kbb, Kmm       ) ! computation of various rates for biogeochemistry
+      !
+      IF( nn_hls > 1 ) CALL lbc_lnk( 'p4zsms', hmld(:,:), 'T', 1._wp )  ! hmld defined only on first halo in zdfmxl
       !
       DO jnt = 1, nrdttrc          ! Potential time splitting if requested