Changeset 11931 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isf.F90

Timestamp:

2019-11-19T18:30:57+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: add comments, improve memory usage of ln_isfcpl_cons option, fix issue in ISOMIP+ configuration

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isf.F90 (modified) (3 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isf.F90

@@ -22 +22 @@
    PRIVATE
 
-   PUBLIC   isf_alloc, isf_alloc_par, isf_alloc_cav, isf_alloc_cpl
+   PUBLIC   isf_alloc, isf_alloc_par, isf_alloc_cav, isf_alloc_cpl, isf_dealloc_cpl
    !
    !-------------------------------------------------------
@@ -175 +175 @@
       !!                  ***  ROUTINE isf_alloc_cpl  ***
       !!
-      !! ** Purpose : 
-      !!
-      !! ** Method  : 
+      !! ** Purpose : allocate array use for the ice sheet coupling
       !!
       !!----------------------------------------------------------------------
@@ -202 +200 @@
    END SUBROUTINE isf_alloc_cpl
 
+   SUBROUTINE isf_dealloc_cpl()
+      !!---------------------------------------------------------------------
+      !!                  ***  ROUTINE isf_dealloc_cpl  ***
+      !!
+      !! ** Purpose : de-allocate useless public 3d array used for ice sheet coupling
+      !!
+      !!----------------------------------------------------------------------
+      INTEGER :: ierr, ialloc
+      !!----------------------------------------------------------------------
+      ierr = 0
+      !
+      DEALLOCATE( risfcpl_ssh, risfcpl_tsc, risfcpl_vol, STAT=ialloc )
+      ierr = ierr + ialloc
+      !
+      CALL mpp_sum ( 'isf', ierr )
+      IF( ierr /= 0 )   CALL ctl_stop('STOP','isfcpl: failed to deallocate arrays.')
+      !
+   END SUBROUTINE isf_dealloc_cpl
+
    SUBROUTINE isf_alloc()
       !!---------------------------------------------------------------------
       !!                  ***  ROUTINE isf_alloc  ***
       !!
-      !! ** Purpose : 
-      !!
-      !! ** Method  : 
+      !! ** Purpose : allocate array used for the ice shelf cavity (cav and par)
       !!
       !!----------------------------------------------------------------------