Changeset 15023 for NEMO/trunk/src/OCE/IOM

Timestamp:

2021-06-18T16:35:25+02:00 (3 years ago)

Author:

gsamson

Message:

merge ticket2680_C1D_PAPA branch back into the trunk; see ticket #2680 for details

File:

• NEMO/trunk/src/OCE/IOM/iom.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/IOM/iom.F90

@@ -22 +22 @@
    USE dom_oce         ! ocean space and time domain
    USE domutl          !
-   USE c1d             ! 1D vertical configuration
    USE flo_oce         ! floats module declarations
    USE lbclnk          ! lateal boundary condition / mpp exchanges
@@ -1410 +1409 @@
 #endif
       ENDIF
-!some final adjustments
-      ! C1D case : always call lbc_lnk to replicate the central value over the whole 3X3 domain
-      IF( lk_c1d .AND. PRESENT(pv_r2d) )   CALL lbc_lnk( 'iom', pv_r2d,'Z',1.0_wp )
-      IF( lk_c1d .AND. PRESENT(pv_r3d) )   CALL lbc_lnk( 'iom', pv_r3d,'Z',1.0_wp )
 
       !--- Apply scale_factor and offset