Changeset 16 for trunk/NEMO/OPA_SRC/TRD/trdtra_oce.F90

Timestamp:

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

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRD/trdtra_oce.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/TRD/trdtra_oce.F90

@@ -12 +12 @@
    PUBLIC
 
-   INTEGER  ::      & !!! namdia :  diagnostics on dynamics and/or tracer trends
+   INTEGER  ::      & !!: namdia :  diagnostics on dynamics and/or tracer trends
       ntrd  = 10 ,  &  !: time step frequency dynamics and tracers trends
       nctls =  0       !: control surface type for trends vertical integration
@@ -25 +25 @@
    !! Trends diagnostics parameters
    !!---------------------------------------------------------------------
-   INTEGER, PARAMETER ::            &
+   INTEGER, PARAMETER ::            &  !:
 # if defined key_traldf_eiv
       jptrdh = 4,   &  !: number of 3D horiz trends arrays
@@ -38 +38 @@
    !! Trends diagnostics variables
    !!---------------------------------------------------------------------
-   REAL(wp) ::   &
-      tvolt         ! volume of the whole ocean computed at t-points
-   REAL(wp), DIMENSION(jpi,jpj,jpk,7) ::   &
+   REAL(wp) ::   &  !:
+      tvolt         !: volume of the whole ocean computed at t-points
+   REAL(wp), DIMENSION(jpi,jpj,jpk,7) ::   &  !:
       ttrd             !: trends of the temperature tracer equations
       !                !  ttrd(,,,1) : horizontal advection
@@ -49 +49 @@
       !                !  ttrd(,,,6) : damping OR vertical EIV
       !                !  ttrd(,,,7) : penetrative solar radiation (T only)
-   REAL(wp), DIMENSION(jpi,jpj,jpk,6) ::   &
+   REAL(wp), DIMENSION(jpi,jpj,jpk,6) ::   &  !:
       strd             !: trends of the salinity tracer equations
       !                !  same as ttrd()
-   REAL(wp), DIMENSION(jpi,jpj,jpk,jptrdh) ::   &
+   REAL(wp), DIMENSION(jpi,jpj,jpk,jptrdh) ::   &  !:
       ttrdh, strdh     !: ttrdh(,,,1) : zonal advection
       !                !  ttrdh(,,,2) : meridional advection
       !                !  ttrdh(,,,3) : zonal EIV
       !                !  ttrdh(,,,4) : meridional EIV
-   REAL(wp), DIMENSION(jpi,jpj,2) ::   &
+   REAL(wp), DIMENSION(jpi,jpj,2) ::   &  !:
       flxtrd,       &  !: tracer forcing trends
       bbltrd           !: tracer bottom boundary layer trends