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

Timestamp:

2019-11-27T15:50:29+01:00 (4 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo: changes needed after Dave's review

File:

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

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

@@ -26 +26 @@
    !!----------------------------------------------------------------------
    USE oce            ! ocean dynamics and tracers 
-   USE isf
+   USE isf_oce
    USE isfcpl
    USE dom_oce        ! ocean space and time domain
@@ -909 +909 @@
       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
@@ -916 +917 @@
             CALL iom_rstput( 0, 0, inum, 'misfkb_cav', REAL(misfkb_cav,8)    )    ! now k-velocity
             CALL iom_rstput( 0, 0, inum, 'misfkt_cav', REAL(misfkt_cav,8)    )    ! now k-velocity
+            CALL iom_rstput( 0, 0, inum, 'mskisf_cav', REAL(mskisf_cav,8), ktype = jp_i1 )
          END IF
          IF (ln_isfpar_mlt) THEN
@@ -924 +926 @@
             CALL iom_rstput( 0, 0, inum, 'misfkb_par', REAL(misfkb_par,8)    )    ! now k-velocity
             CALL iom_rstput( 0, 0, inum, 'misfkt_par', REAL(misfkt_par,8)    )    ! now k-velocity
+            CALL iom_rstput( 0, 0, inum, 'mskisf_par', REAL(mskisf_par,8), ktype = jp_i1 )
          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