Changeset 6772 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_crs.F90

Timestamp:

2016-07-01T18:02:45+02:00 (8 years ago)

Author:

cbricaud

Message:

clean in coarsening branch

File:

• branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_crs.F90 (modified) (2 diffs)

branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra_crs.F90

@@ -8 +8 @@
    !!             2.0  ! 2005-11  (G. Madec)  
    !!----------------------------------------------------------------------
-
+#if defined key_top && defined key_crs
    !!----------------------------------------------------------------------
    !!   ldf_tra_init : initialization, namelist read, and parameters control
@@ -88 +88 @@
 
    !!======================================================================
+#else
+   PUBLIC   ldf_tra_crs_init
+CONTAINS
+   SUBROUTINE ldf_tra_crs_init
+   END SUBROUTINE ldf_tra_crs_init
+
+#endif
 END MODULE ldftra_crs