Changeset 7919 for branches/UKMO/dev_r5518_GO6_package_landice_fw_input_option2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2017-04-18T12:43:06+02:00 (7 years ago)

Author:

davestorkey

Message:

Commit changes to UKMO branch to implement updated scheme for freshwater input from icesheets for coupled models.

File:

• branches/UKMO/dev_r5518_GO6_package_landice_fw_input_option2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_landice_fw_input_option2/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -158 +158 @@
 #endif
                      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 .eq. 1 ) THEN
                         CALL iom_rstput( kt, nitrst, numrow, 'greenland_icesheet_mass', greenland_icesheet_mass )
                         CALL iom_rstput( kt, nitrst, numrow, 'greenland_icesheet_timelapsed', greenland_icesheet_timelapsed )