Changeset 719 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2007-10-16T16:59:56+02:00 (17 years ago)

Author:

ctlod

Message:

get back to the nemo_v2_3 version for trunk

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (5 diffs, 1 prop)

trunk/NEMO/OPA_SRC/opa.F90

@@ -36 +36 @@
    !!----------------------------------------------------------------------
    !! * Modules used
-   USE oce             ! dynamics and tracers variables
    USE cpl_oce         ! ocean-atmosphere-sea ice coupled exchanges
    USE dom_oce         ! ocean space domain variables
-   USE sbc_oce         ! surface boundary condition: ocean
+   USE oce             ! dynamics and tracers variables
    USE trdmod_oce      ! ocean variables trends
    USE daymod          ! calendar
@@ -61 +60 @@
    USE phycst          ! physical constant                  (par_cst routine)
    USE iceini          ! initialization of sea-ice         (ice_init routine)
+   USE cpl             ! coupled ocean/atmos.              (cpl_init routine)
    USE ocfzpt          ! ocean freezing point              (oc_fz_pt routine)
    USE trdmod          ! momentum/tracers trends       (trd_mod_init routine)
+   USE flxfwb          ! freshwater budget correction  (flx_fwb_init routine)
+   USE flxmod          ! thermohaline forcing of the ocean (flx_init routine)
 
    USE diaptr          ! poleward transports           (dia_ptr_init routine)
@@ -92 +94 @@
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/opa.F90,v 1.38 2007/06/05 10:32:02 opalod Exp $ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -309 +311 @@
 #endif
 
+      CALL flx_init                         ! Thermohaline forcing initialization
+
+      CALL flx_fwb_init                     ! FreshWater Budget correction
+
       CALL dia_ptr_init                     ! Poleward TRansports initialization
 
@@ -460 +466 @@
       USE dtatem        ! temperature data
       USE dtasal        ! salinity data
+      USE dtasst        ! sea surface temperature data
       !!----------------------------------------------------------------------