Changeset 7788 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.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/SBC/sbcmod.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -328 +328 @@
       IF( ln_ssr      )   CALL sbc_ssr_init            ! Sea-Surface Restoring initialization
       !
+      IF( ln_isf      )   CALL sbc_isf_init               ! Compute iceshelves
+      !
                           CALL sbc_rnf_init            ! Runof initialization
       !
@@ -374 +376 @@
             rnf_tsc_b(:,:,:) = rnf_tsc(:,:,:)
          ENDIF
+         IF( ln_isf )  THEN
+            fwfisf_b  (:,:  ) = fwfisf  (:,:  )               
+            risf_tsc_b(:,:,:) = risf_tsc(:,:,:)              
+         ENDIF
+        !
       ENDIF
       !                                            ! ---------------------------------------- !