Changeset 592 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2007-02-09T10:15:25+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/DOM/domain.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -27 +27 @@
    USE domwri          ! domain: write the meshmask file
    USE closea          ! closed sea or lake              (dom_clo routine)
+   USE domvvl          ! variable volume
 
    IMPLICIT NONE
@@ -91 +92 @@
       CALL dom_msk                        ! Masks
 
+      IF( lk_vvl )   CALL dom_vvl_ini     ! Vertical variable mesh
 
       ! Local depth or Inverse of the local depth of the water column at u- and v-points