Changeset 2392 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.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/DYN/sshwzv.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -19 +19 @@
    USE domvvl          ! Variable volume
    USE divcur          ! hor. divergence and curl      (div & cur routines)
-   USE cla_div         ! cross land: hor. divergence      (div_cla routine)
    USE iom             ! I/O library
    USE restart         ! only for lrst_oce
@@ -147 +146 @@
       ENDIF
       !
-
-                         CALL div_cur( kt )           ! Horizontal divergence & Relative vorticity
-      IF( n_cla == 1 )   CALL div_cla( kt )           ! Cross Land Advection (Update Hor. divergence)
-
+      CALL div_cur( kt )                              ! Horizontal divergence & Relative vorticity
+      !
       z2dt = 2. * rdt                                 ! set time step size (Euler/Leapfrog)
       IF( neuler == 0 .AND. kt == nit000 )   z2dt =rdt