Changeset 11931 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/tests/ISOMIP+/MY_SRC/isfstp.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/isfstp.F90 (modified) (1 diff)

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

@@ -97 +97 @@
       END IF
       !
-      IF ( ln_isfcpl .AND. lrst_oce ) CALL isfcpl_rst_write(kt)
+      IF ( ln_isfcpl ) THEN
+         ! after step nit000 + 2 we do not need anymore the risfcpl_ arrays
+         IF ( kt == nit000 + 2 ) CALL isf_dealloc_cpl()
+
+         IF ( lrst_oce ) CALL isfcpl_rst_write(kt)
+      END IF
       !
       IF( ln_timing )   CALL timing_stop('isf')