Changeset 15 for trunk/NEMO/OPA_SRC/ice_oce.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/ice_oce.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/ice_oce.F90

@@ -17 +17 @@
    USE blk_oce         ! bulk parameters
 
-
    IMPLICIT NONE
+   PRIVATE
  
    !! Shared module variables
-   LOGICAL, PUBLIC, PARAMETER ::   lk_ice_lim = .TRUE.    ! LIM ice model
+   LOGICAL, PUBLIC, PARAMETER ::   lk_ice_lim = .TRUE.    !: LIM ice model
 
    !!----------------------------------------------------------------------
@@ -27 +27 @@
    !!----------------------------------------------------------------------
 # if defined key_coupled
-   REAL(wp), DIMENSION(jpiglo,jpjglo)    ::   & ! cumulated fields
-      fqsr_oce ,     &   ! Net short wave heat flux on free ocean 
-      fqsr_ice ,     &   ! Net short wave het 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 
+   REAL(wp), PUBLIC, DIMENSION(jpiglo,jpjglo) ::   &  !: cumulated fields
+      fqsr_oce ,      &   !: Net short wave heat flux on free ocean 
+      fqsr_ice ,      &   !: Net short wave het 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
 
-   REAL(wp), DIMENSION(jpi,jpj)    ::   & ! field exchanges with ice model to ocean
-      sst_io  ,      &   ! sea surface temperature
-      sss_io  ,      &   ! sea surface salinity
-      u_io    ,      &   ! i-horizontal velocity at ice surface
-      v_io    ,      &   ! j-horizontal velocity at ice surface
-      fsolar  ,      &   ! solar heat flux
-      fnsolar ,      &   ! total non-solar heat flux
-      fsalt   ,      &   ! salt flux
-      fmass   ,      &   ! freshwater flux
-      ftaux   ,      &   ! i-horizontal wind stress 
-      ftauy   ,      &   ! j-horizontal wind stress 
-      gtaux   ,      &   ! i-horizontal wind stress 
-      gtauy              ! i-horizontal wind stress 
+   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) ::       &
-      rdt_ice,       &  ! ice time step
-      dtsd2              ! ice time step divide by 2
+   REAL(wp), PUBLIC ::   &  !:
+      rdt_ice,           &  !: ice time step
+      dtsd2                 !: ice time step divide by 2
 
 #else
@@ -61 +55 @@
    !!   Default option                                 NO LIM sea-ice model
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_ice_lim = .FALSE.        ! No LIM ice model
+   LOGICAL, PUBLIC, PARAMETER ::   lk_ice_lim = .FALSE.  !: No LIM ice model
 #endif
 
-   INTEGER ::         & !!! namdom : space/time domain (namlist)
-      nfice =  5         ! coupling frequency OPA ICELLN  nfice 
+   INTEGER, PUBLIC ::   &  !: namdom : space/time domain (namlist)
+      nfice =  5           !: coupling frequency OPA ICELLN  nfice 
 
    !!----------------------------------------------------------------------