Changeset 7788 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2017-03-11T10:40:59+01:00 (7 years ago)

Author:

cetlod

Message:

trunk : representation of ice shelf melting in coupled mode

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -182 +182 @@
             END DO
          END DO
-         IF( lrst_oce ) THEN
-            CALL iom_rstput( kt, nitrst, numrow, 'fwf_isf_b', fwfisf  (:,:)        )
-            CALL iom_rstput( kt, nitrst, numrow, 'isf_hc_b' , risf_tsc(:,:,jp_tem) )
-            CALL iom_rstput( kt, nitrst, numrow, 'isf_sc_b' , risf_tsc(:,:,jp_sal) )
-         ENDIF
       END IF
       !