Changeset 15086

Timestamp:

2021-07-06T11:16:55+02:00 (3 years ago)

Author:

clem

Message:

debug last commit when compiling orca2. Sorry for the mess.

File:

• NEMO/trunk/src/OCE/ISF/isfcav.F90 (modified) (3 diffs)

NEMO/trunk/src/OCE/ISF/isfcav.F90

@@ -23 +23 @@
    !
    USE oce      , ONLY: ts, uu, vv, rn2                 ! ocean dynamics and tracers
+   USE dom_oce                                          ! ocean space and time domain
    USE par_oce  , ONLY: jpi,jpj                         ! ocean space and time domain
    USE phycst   , ONLY: grav,rho0,rho0_rcp,r1_rho0_rcp  ! physical constants
@@ -41 +42 @@
    !! * Substitutions   
 #  include "do_loop_substitute.h90"
+#  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -109 +111 @@
             zRc(ji,jj) = MAX(rn2(ji,jj,ikt+1), 1.e-20_wp) / MAX( zdku*zdku + zdkv*zdkv, 1.e-20_wp )
          END_2D
-         CALL lbc_lnk( 'isfcav', zRc, 'T', 1._wp )
+         CALL lbc_lnk( 'isfmlt', zRc, 'T', 1._wp )
       ENDIF
       !