Changeset 2392 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2010-11-15T22:20:05+01:00 (13 years ago)

Author:

gm

Message:

v3.3beta: Cross Land Advection (ticket #127) full rewriting + MPP bug corrections

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -186 +186 @@
       IF( lk_tradmp      )   CALL tra_dmp    ( kstp )       ! internal damping trends
                              CALL tra_adv    ( kstp )       ! horizontal & vertical advection
-      IF( n_cla == 1     )   CALL tra_cla    ( kstp )       ! Cross Land Advection (Update Hor. advection)
       IF( lk_zdfkpp      )   CALL tra_kpp    ( kstp )       ! KPP non-local tracer fluxes
                              CALL tra_ldf    ( kstp )       ! lateral mixing