Changeset 593 for trunk/NEMO/OPA_SRC/step.F90

Timestamp:

2007-02-09T10:40:34+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_update_001 : CT : - add non linear free surface (variable volume) with new cpp key key_vvl

File:

• trunk/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/step.F90

@@ -119 +119 @@
    USE cpl             ! exchanges in coupled mode        (cpl_stp routine)
    USE prtctl          ! Print control                    (prt_ctl routine)
+   USE domvvl          ! variable volume                  (dom_vvl routine)
 
 #if defined key_agrif
@@ -385 +386 @@
                                CALL dyn_nxt( kstp )           ! lateral velocity at next time step
 
+      IF( lk_vvl )             CALL dom_vvl                   ! vertical mesh at next time step
+
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>