Changeset 5539 for branches/UKMO/restart_datestamp/NEMOGCM/NEMO/SAS_SRC/step.F90

Timestamp:

2015-07-02T16:10:04+02:00 (9 years ago)

Author:

davestorkey

Message:

Update UKMO/restart_datestamp branch to rev 5518 of trunk
(= branching point of NEMO 3.6_stable)

File:

• branches/UKMO/restart_datestamp/NEMOGCM/NEMO/SAS_SRC/step.F90 (modified) (2 diffs)

branches/UKMO/restart_datestamp/NEMOGCM/NEMO/SAS_SRC/step.F90

@@ -37 +37 @@
 
    USE timing           ! Timing            
+
+   USE bdy_par          ! clem: mandatory for LIM3
+#if defined key_bdy
+   USE bdydta           ! clem: mandatory for LIM3
+#endif
 
    IMPLICIT NONE
@@ -81 +86 @@
                              CALL iom_setkt( kstp - nit000 + 1, cxios_context )   ! tell iom we are at time step kstp
 
+      ! ==> clem: open boundaries is mandatory for LIM3 because ice BDY is not decoupled from  
+      !           the environment of ocean BDY. Therefore bdy is called in both OPA and SAS modules.
+      !           From SAS: ocean bdy data are wrong  (but we do not care) and ice bdy data are OK.  
+      !           This is not clean and should be changed in the future. 
+#if defined key_bdy
+      IF( lk_bdy     )       CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries
+#endif
+      ! ==>
                              CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice)