Changeset 12742 for NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbccpl.F90

Timestamp:

2020-04-12T14:46:30+02:00 (4 years ago)

Author:

clem

Message:

all sette tests passed

File:

• NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbccpl.F90 (modified) (3 diffs)

NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/SBC/sbccpl.F90

@@ -837 +837 @@
 
       ! Initialise ice fractions from last coupling time to zero (needed by Met-Office)
+#if defined key_si3 || defined key_cice
        a_i_last_couple(:,:,:) = 0._wp
-
+#endif
       !                                                      ! ------------------------- ! 
       !                                                      !      Ice Meltponds        ! 
@@ -2297 +2298 @@
       ENDIF
 
+#if defined key_si3 || defined key_cice
       ! If this coupling was successful then save ice fraction for use between coupling points. 
       ! This is needed for some calculations where the ice fraction at the last coupling point 
@@ -2306 +2308 @@
          ENDIF
       ENDIF
+#endif
 
       IF( ssnd(jps_fice1)%laction ) THEN