Changeset 8046 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB

Timestamp:

2017-05-19T12:07:10+02:00 (7 years ago)

Author:

davestorkey

Message:

UKMO/dev_r5518_GO6_package branch: Add extra option for freshwater input from ice shelves in coupled models.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbclv.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ICB/icbclv.F90

@@ -66 +66 @@
 
       IF( lk_oasis) THEN
-      ! ln_coupled_iceshelf_fluxes uninitialised unless lk_oasis=true
-      IF( ln_coupled_iceshelf_fluxes ) THEN
+      ! nn_coupled_iceshelf_fluxes uninitialised unless lk_oasis=true
+      IF( nn_coupled_iceshelf_fluxes .gt. 0 ) THEN
 
         ! Adjust total calving rates so that sum of iceberg calving and iceshelf melting in the northern