Changeset 32 for trunk/NEMO/OPA_SRC/LDF/ldftra_oce.F90

Timestamp:

2004-02-17T10:20:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

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

trunk/NEMO/OPA_SRC/LDF/ldftra_oce.F90

@@ -22 +22 @@
    !!----------------------------------------------------------------------
 
-   LOGICAL , PUBLIC ::              & !!! ** lateral mixing namelist (nam_traldf) **
-      ln_traldf_lap   = .TRUE.  ,   &  ! laplacian operator
-      ln_traldf_bilap = .FALSE. ,   &  ! bilaplacian operator
-      ln_traldf_level = .FALSE. ,   &  ! iso-level direction
-      ln_traldf_hor   = .FALSE. ,   &  ! horizontal (geopotential) direction
-      ln_traldf_iso   = .TRUE.         ! iso-neutral direction
+   LOGICAL , PUBLIC ::              & !!: ** lateral mixing namelist (nam_traldf) **
+      ln_traldf_lap   = .TRUE.  ,   &  !: laplacian operator
+      ln_traldf_bilap = .FALSE. ,   &  !: bilaplacian operator
+      ln_traldf_level = .FALSE. ,   &  !: iso-level direction
+      ln_traldf_hor   = .FALSE. ,   &  !: horizontal (geopotential) direction
+      ln_traldf_iso   = .TRUE.         !: iso-neutral direction
 
-   REAL(wp), PUBLIC ::              & !!! ** lateral mixing namelist (namldf) **
-      aht0  = 2000._wp     ,        &  ! lateral eddy diffusivity (m2/s)
-      ahtb0 =    0._wp     ,        &  ! lateral background eddy diffusivity (m2/s)
-      aeiv0 = 2000._wp                 ! eddy induced velocity coefficient (m2/s)
+   REAL(wp), PUBLIC ::              & !!: ** lateral mixing namelist (namldf) **
+      aht0  = 2000._wp     ,        &  !: lateral eddy diffusivity (m2/s)
+      ahtb0 =    0._wp     ,        &  !: lateral background eddy diffusivity (m2/s)
+      aeiv0 = 2000._wp                 !: eddy induced velocity coefficient (m2/s)
 
-   LOGICAL , PUBLIC ::              &  ! flag of the lateral diff. scheme used 
-      l_traldf_lap         ,        &  ! iso-level laplacian operator
-      l_traldf_bilap       ,        &  ! iso-level bilaplacian operator
-      l_traldf_bilapg      ,        &  ! geopotential bilap. (s-coord)
-      l_traldf_iso         ,        &  ! iso-neutral laplacian or horizontal lapacian (s-coord)
-      l_trazdf_iso         ,        &  ! idem for the vertical component
-      l_trazdf_iso_vo      ,        &  ! idem with vectopt_memory
-      l_traldf_iso_zps                 ! iso-neutral laplacian (partial steps)
+   LOGICAL , PUBLIC ::              &  !: flag of the lateral diff. scheme used 
+      l_traldf_lap         ,        &  !: iso-level laplacian operator
+      l_traldf_bilap       ,        &  !: iso-level bilaplacian operator
+      l_traldf_bilapg      ,        &  !: geopotential bilap. (s-coord)
+      l_traldf_iso         ,        &  !: iso-neutral laplacian or horizontal lapacian (s-coord)
+      l_trazdf_iso         ,        &  !: idem for the vertical component
+      l_trazdf_iso_vo      ,        &  !: idem with vectopt_memory
+      l_traldf_iso_zps                 !: iso-neutral laplacian (partial steps)
 
 #if defined key_traldf_c3d
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &  ! ** 3D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &  !: ** 3D coefficients **
 #elif defined key_traldf_c2d
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)     ::   &  ! ** 2D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)     ::   &  !: ** 2D coefficients **
 #elif defined key_traldf_c1d
-   REAL(wp), PUBLIC, DIMENSION(jpk)         ::   &  ! ** 1D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpk)         ::   &  !: ** 1D coefficients **
 #else
-   REAL(wp), PUBLIC                         ::   &  ! ** 0D coefficients **
+   REAL(wp), PUBLIC                         ::   &  !: ** 0D coefficients **
 #endif
-      ahtt, ahtu, ahtv, ahtw                ! T-, U-, V-, W-points coefficients
+      ahtt, ahtu, ahtv, ahtw                !: T-, U-, V-, W-points coefficients
 
 
@@ -59 +59 @@
    !!   'key_traldf_eiv'                              eddy induced velocity
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_traldf_eiv   = .TRUE.   ! eddy induced velocity flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_traldf_eiv   = .TRUE.   !: eddy induced velocity flag
       
 # if defined key_traldf_c3d
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &  ! ** 3D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   &  !: ** 3D coefficients **
 # elif defined key_traldf_c2d
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)     ::   &  ! ** 2D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj)     ::   &  !: ** 2D coefficients **
 # elif defined key_traldf_c1d
-   REAL(wp), PUBLIC, DIMENSION(jpk)         ::   &  ! ** 1D coefficients **
+   REAL(wp), PUBLIC, DIMENSION(jpk)         ::   &  !: ** 1D coefficients **
 # else
-   REAL(wp), PUBLIC                         ::   &  ! ** 0D coefficients **
+   REAL(wp), PUBLIC                         ::   &  !: ** 0D coefficients **
 # endif
-      aeiu, aeiv, aeiw                              ! U-, V-, W-points  induced velocity coef. (m2/s)
+      aeiu, aeiv, aeiw                              !: U-, V-, W-points  induced velocity coef. (m2/s)
 
 # if defined key_diaeiv
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::    &
-      u_eiv,      &  ! The three component of the eddy induced velocity (m/s)
-      v_eiv,      &  ! saved for diagnostics and/or outputs
-      w_eiv          ! 
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::    &  !:
+      u_eiv, v_eiv, w_eiv     !: The three component of the eddy induced velocity (m/s)
 # endif
 
@@ -83 +81 @@
    !!   Default option :                           NO eddy induced velocity
    !!----------------------------------------------------------------------
-   LOGICAL , PUBLIC, PARAMETER ::   lk_traldf_eiv   = .FALSE.   ! eddy induced velocity flag
+   LOGICAL , PUBLIC, PARAMETER ::   lk_traldf_eiv   = .FALSE.   !: eddy induced velocity flag
    REAL(wp), PUBLIC ::   aeiu, aeiv, aeiw
 #endif