Changeset 15085 for NEMO/trunk/src/OCE/ISF/isfcav.F90

Timestamp:

2021-07-05T22:07:24+02:00 (3 years ago)

Author:

clem

Message:

ISF further cleaning and debugging(?) for isfcpl but I think it requires more attention

File:

• NEMO/trunk/src/OCE/ISF/isfcav.F90 (modified) (1 diff)

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

@@ -109 +109 @@
             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( 'isfmlt', zRc, 'T', 1._wp )
+         CALL lbc_lnk( 'isfcav', zRc, 'T', 1._wp )
       ENDIF
       !