Changeset 10309 for branches

Timestamp:

2018-11-14T18:55:25+01:00 (5 years ago)

Author:

dford

Message:

Undo changes which are no longer required for merging.

Location:

branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO

Files:

• OPA_SRC/SBC/fldread.F90 (modified) (1 diff)
• TOP_SRC/TRP/trcnxt.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -30 +30 @@
    PRIVATE   
  
-   PUBLIC   fld_clopn
    PUBLIC   fld_map    ! routine called by tides_init
    PUBLIC   fld_read, fld_fill   ! called by sbc... modules

branches/UKMO/dev_r5518_obs_oper_update_ersem/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

@@ -102 +102 @@
       ENDIF
 
-#if defined key_agrif
-      CALL Agrif_trc                   ! AGRIF zoom boundaries
-#endif
       ! Update after tracer on domain lateral boundaries
       DO jn = 1, jptra
@@ -113 +110 @@
 #if defined key_bdy
 !!      CALL bdy_trc( kt )               ! BDY open boundaries
+#endif
+#if defined key_agrif
+      CALL Agrif_trc                   ! AGRIF zoom boundaries
 #endif