Changeset 11403 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90

Timestamp:

2019-08-05T19:14:52+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : add comments, renaming file (AGRIF), add isfload module (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfcav.F90

@@ -156 +156 @@
       ! allocation isfcav gamtisf, gamsisf, 
       CALL isf_alloc_cav()
-
-      ! initialisation
-      mskisf_cav(:,:) = (1._wp - tmask(:,:,1)) * ssmask(:,:)
       !
-      misfkt_cav(:,:) = mikt(:,:)
+      ! cav
+      misfkt_cav(:,:)     = mikt(:,:) ; misfkb_cav(:,:)       = 1
+      rhisf_tbl_cav(:,:)  = 0.0_wp    ; rfrac_tbl_cav(:,:)    = 0.0_wp
       !
       SELECT CASE ( TRIM(cn_isfcav_mlt) )