Changeset 708 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2007-10-10T15:11:42+02:00 (17 years ago)

Author:

smasson

Message:

continue changeset:704, see ticket:5

File:

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

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -14 +14 @@
    USE sol_oce         ! solver variables
    USE ice_oce         ! ice variables
+   USE sbc_oce         ! surface boundary condition: ocean
    USE phycst          ! physical constants
    USE ocfzpt          ! ocean freezing point
-   USE ocesbc          ! surface thermohaline fluxes
-   USE taumod          ! surface stress
-   USE flxrnf          ! ocean runoffs
    USE zdfmxl          ! mixed layer
    USE daymod          ! calendar
@@ -27 +25 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE in_out_manager  ! I/O manager
-   USE flx_oce         ! sea-ice/ocean forcings variables
    USE diadimg         ! dimg direct access file format output
    USE ioipsl