Changeset 4708 for branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

Timestamp:

2014-07-10T17:17:46+02:00 (10 years ago)

Author:

rfurner

Message:

changes to remove tracer modules and produce barotropic model

File:

• branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (2 diffs)

branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -419 +419 @@
          &                  CALL zdf_ddm_init      ! double diffusive mixing
       !                                         ! Lateral physics
+#if ! defined key_surge
                             CALL ldf_tra_init      ! Lateral ocean tracer physics
+#endif
                             CALL ldf_dyn_init      ! Lateral ocean momentum physics
       IF( lk_ldfslp     )   CALL ldf_slp_init      ! slope of lateral mixing
 
+#if ! defined key_surge
       !                                     ! Active tracers
                             CALL tra_qsr_init   ! penetrative solar radiation qsr
@@ -431 +434 @@
                             CALL tra_ldf_init   ! lateral mixing
                             CALL tra_zdf_init   ! vertical mixing and after tracer fields
+#endif
 
       !                                     ! Dynamics