Changeset 11403 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isfhdiv.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/isfhdiv.F90 (modified) (2 diffs)

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

@@ -1 +1 @@
 MODULE isfhdiv
 
-USE oce
-USE dom_oce
-USE isf
-USE isfutils
-USE phycst
+   USE dom_oce
+   USE isf
+   USE phycst
 
-IMPLICIT NONE
+   IMPLICIT NONE
 
-PRIVATE
+   PRIVATE
 
-PUBLIC isf_hdiv
+   PUBLIC isf_hdiv
 
 CONTAINS
@@ -59 +57 @@
       INTEGER  ::   ji, jj, jk   ! dummy loop indices
       INTEGER  ::   ikt, ikb 
-      REAL(wp), DIMENSION(jpi,jpj) :: zqvol
+      REAL(wp), DIMENSION(jpi,jpj) :: zqvol,ztmp
       !!----------------------------------------------------------------------
       !