Changeset 708 for trunk/NEMO/C1D_SRC

Timestamp:

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

Author:

smasson

Message:

continue changeset:704, see ticket:5

Location:

trunk/NEMO/C1D_SRC

Files:

• diawri1d.F90 (modified) (2 diffs)
• icestp1d.F90 (modified) (1 diff)
• step1d.F90 (modified) (2 diffs)

trunk/NEMO/C1D_SRC/diawri1d.F90

@@ -13 +13 @@
    USE dom_oce         ! ocean space and time domain
    USE zdf_oce         ! ocean vertical physics
+   USE sbc_oce         ! surface boundary condition: ocean
    USE zdftke          ! TKE vertical mixing
    USE zdfkpp          ! KPP vertical mixing
@@ -19 +20 @@
    USE phycst          ! physical constants
    USE ocfzpt          ! ???
-   USE ocesbc          ! surface thermohaline fluxes
-   USE taumod          ! surface stress
-   USE flxrnf          ! ???
    USE zdfmxl          ! mixed layer
    USE daymod          ! calendar

trunk/NEMO/C1D_SRC/icestp1d.F90

@@ -18 +18 @@
    USE in_out_manager  ! I/O manager
    USE ice_oce         ! ice variables
-   USE flx_oce         ! forcings variables
    USE dom_ice         ! LIM sea-ice domain
    USE cpl_oce         ! coupled ocean-atmosphere variables
    USE blk_oce         ! bulk variables
+   USE sbc_oce         ! surface boundary condition: ocean
+   USE sbc_ice         ! surface boundary condition: ice
    USE daymod          ! calendar
    USE phycst          ! Define parameters for the routines
-   USE taumod          ! surface stress forcing
    USE ice             ! ice variables
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE limthd
-   USE limflx
    USE limwri
    USE limrst
 
-   USE ocesbc          ! thermohaline fluxes
-   USE flxmod          ! thermohaline forcing
-   USE flxrnf          ! runoffs forcing
    USE tradmp          ! damping salinity trend
    USE dtatem          ! ocean temperature data

trunk/NEMO/C1D_SRC/step1d.F90

@@ -15 +15 @@
    USE dom_oce         ! ocean space and time domain variables 
    USE zdf_oce         ! ocean vertical physics variables
+   USE sbc_oce         ! surface boundary condition: ocean
    USE ldftra_oce
    USE ldfdyn_oce
@@ -24 +25 @@
    USE dtatem          ! ocean temperature data           (dta_tem routine)
    USE dtasal          ! ocean salinity    data           (dta_sal routine)
-   USE dtasst          ! ocean sea surface temerature     (dta_sst routine)
-   USE taumod          ! surface stress                   (tau     routine)
-   USE flxmod          ! thermohaline fluxes              (flx     routine)
-   USE ocesbc          ! thermohaline fluxes              (oce_sbc routine)
-   USE flxrnf          ! runoffs                          (flx_rnf routine)
-   USE flxfwb          ! freshwater budget correction     (flx_fwb routine)
    USE ocfzpt          ! surface ocean freezing point    (oc_fz_pt routine)