Changeset 16 for trunk/NEMO/OPA_SRC/DTA/dtasst.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/DTA/dtasst.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DTA/dtasst.F90

@@ -26 +26 @@
    !! * Shared module variables
 #if defined key_dtasst
-   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasst = .TRUE.   ! sst data flag
+   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasst = .TRUE.   !: sst data flag
 #else
-   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasst = .TRUE.   ! sst data flag
+   LOGICAL , PUBLIC, PARAMETER ::   lk_dtasst = .FALSE.  !: sst data flag
 #endif
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &
-      sst             ! surface temperature
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2) ::   &
-      rclice          ! climatological ice index (0/1) (2 months)
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &  !:
+      sst             !: surface temperature
+   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,2) ::   &  !:
+      rclice          !: climatological ice index (0/1) (2 months)
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , IPSL-LODYC  (2003)