Changeset 11876 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DIA

Timestamp:

2019-11-08T12:26:42+01:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: add timing in the main isf routine + various bug fixes + cosmetic changes

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DIA/diawri.F90 (modified) (2 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/DIA/diawri.F90

@@ -907 +907 @@
       CALL iom_rstput( 0, 0, inum, 'vomecrty', vn                )    ! now j-velocity
       CALL iom_rstput( 0, 0, inum, 'vovecrtz', wn                )    ! now k-velocity
-      CALL iom_rstput( 0, 0, inum, 'risfdep', risfdep          )    ! now k-velocity
+      CALL iom_rstput( 0, 0, inum, 'risfdep', risfdep            )    ! now k-velocity
+      CALL iom_rstput( 0, 0, inum, 'ht_n'   , ht_n               )    ! now k-velocity
       IF ( ln_isf ) THEN
          IF (ln_isfcav_mlt) THEN
@@ -925 +926 @@
          END IF
       END IF
+
+      IF ( ln_isf ) THEN
+         IF (ln_isfcav_mlt) CALL iom_rstput( 0, 0, inum, 'mskisf_cav', REAL(mskisf_cav,8), ktype = jp_i1 )
+         IF (ln_isfpar_mlt) CALL iom_rstput( 0, 0, inum, 'mskisf_par', REAL(mskisf_par,8), ktype = jp_i1 )
+      END IF
+      
       IF( ALLOCATED(ahtu) ) THEN
          CALL iom_rstput( 0, 0, inum,  'ahtu', ahtu              )    ! aht at u-point