Changeset 991 for branches/dev_003_CPL/NEMO/OPA_SRC/ice_oce.F90

Timestamp:

2008-05-23T17:55:55+02:00 (16 years ago)

Author:

smasson

Message:

dev_003_CPL: preliminary draft (not working), see ticket #155

File:

• branches/dev_003_CPL/NEMO/OPA_SRC/ice_oce.F90 (modified) (2 diffs)

branches/dev_003_CPL/NEMO/OPA_SRC/ice_oce.F90

@@ -33 +33 @@
    !! ice-ocean common variables
    !!----------------------------------------------------------------------
-# if defined key_coupled
-   REAL(wp), PUBLIC, DIMENSION(jpiglo,jpjglo) ::   &  !: cumulated fields
-      fqsr_oce ,      &   !: Net short wave heat flux on free ocean 
-      fqsr_ice ,      &   !: Net short wave heat flux on sea ice 
-      fqnsr_oce,      &   !: Net longwave heat flux on free ocean
-      fqnsr_ice,      &   !: Net longwave heat flux on sea ice
-      fdqns_ice,      &   !: Derivative of non solar heat flux on sea ice
-      ftprecip ,      &   !: Water flux (liquid precipitation - evaporation) 
-      fsprecip ,      &   !: Solid (snow) precipitation
-      frunoff  ,      &   !: runoff
-      fcalving            !: Iceberg calving 
-# endif
 
 # if defined key_lim3
@@ -51 +39 @@
       tatm_ice       , &  !: air temperature
       icethi              !: icethickness
-# endif
-   
+# endif   
    REAL(wp), PUBLIC ::   &  !:
       rdt_ice,           &  !: ice time step
       dtsd2                 !: ice time step divide by 2
+#else
 
-#else
    !!----------------------------------------------------------------------
    !!   Default option                      NO LIM 2.0 or 3.0 sea-ice model