Changeset 719 for trunk/NEMO/OPA_SRC/ice_oce.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/ice_oce.F90 (modified) (4 diffs, 1 prop)

trunk/NEMO/OPA_SRC/ice_oce.F90

@@ -8 +8 @@
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005) 
-   !! $Id$
+   !! $Header$ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -17 +17 @@
    !! * Modules used
    USE par_oce         ! ocean parameters
+   USE blk_oce         ! bulk parameters
 
    IMPLICIT NONE
@@ -39 +40 @@
       fcalving            !: Iceberg calving 
 # endif
+
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !: field exchanges with ice model to ocean
+      sst_io, sss_io , &  !: sea surface temperature (C) and salinity (PSU)
+      u_io  , v_io   , &  !: velocity at ice surface (m/s)
+      fsolar, fnsolar, &  !: solar and non-solar heat fluxes (W/m2)
+      fsalt , fmass  , &  !: salt and freshwater fluxes
+      ftaux , ftauy  , &  !: wind stresses
+      gtaux , gtauy       !: wind stresses
    
    REAL(wp), PUBLIC ::   &  !:
@@ -51 +60 @@
 #endif
 
+   INTEGER, PUBLIC ::   &  !: namdom : space/time domain (namlist)
+      nfice =  5           !: coupling frequency OPA ICELLN  nfice 
+
    !!----------------------------------------------------------------------
 END MODULE ice_oce