Changeset 88 for trunk/NEMO/LIM_SRC/limwri.F90

Timestamp:

2004-04-22T15:50:27+02:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE057 : # General syntax, alignement, comments corrections

# l_ctl alone replace the set (l_ctl .AND. lwp)
# Add of diagnostics which are activated when using l_ctl logical

File:

• trunk/NEMO/LIM_SRC/limwri.F90 (modified) (6 diffs)

trunk/NEMO/LIM_SRC/limwri.F90

@@ -32 +32 @@
 
    !! * Module variables
+   INTEGER, PARAMETER ::   &  !:
+      jpnoumax = 40             !: maximum number of variable for ice output
    INTEGER  ::                                &
       noumef                                     ! number of fields
-   REAL(wp)           , DIMENSION(noumax) ::  &
+   REAL(wp)           , DIMENSION(jpnoumax) ::  &
       cmulti ,                                &  ! multiplicative constant
       cadd                                       ! additive constant
-   CHARACTER(len = 35), DIMENSION(noumax) ::  &
+   CHARACTER(len = 35), DIMENSION(jpnoumax) ::  &
       titn                                       ! title of the field
-   CHARACTER(len = 8 ), DIMENSION(noumax) ::  &
+   CHARACTER(len = 8 ), DIMENSION(jpnoumax) ::  &
       nam                                        ! name of the field
-   CHARACTER(len = 8 ), DIMENSION(noumax) ::  &
+   CHARACTER(len = 8 ), DIMENSION(jpnoumax) ::  &
       uni                                        ! unit of the field
-   INTEGER            , DIMENSION(noumax) ::  &
+   INTEGER            , DIMENSION(jpnoumax) ::  &
       nc                                         ! switch for saving field ( = 1 ) or not ( = 0 )
 
    REAL(wp)  ::            &  ! constant values
-      epsi16 = 1e-16   ,  &
-      zzero  = 0.0     ,  &
-      zone   = 1.0
+      epsi16 = 1.e-16   ,  &
+      zzero  = 0.e0     ,  &
+      zone   = 1.e0
+   !!-------------------------------------------------------------------
 
 CONTAINS
@@ -70 +73 @@
          zindh,zinda,zindb,  &
          ztmu
-      REAL(wp), DIMENSION(jpi,jpj,noumax) :: &
+      REAL(wp), DIMENSION(jpi,jpj,jpnoumax) :: &
          zcmo
       REAL(wp), DIMENSION(jpi,jpj) ::  &
@@ -84 +87 @@
          ndex51  
       !!-------------------------------------------------------------------
- 
-
       
       IF ( numit == nstart ) THEN 
@@ -111 +112 @@
          CALL wheneq  ( jpij , tmask(:,:,1), 1, 1., ndex51, ndim)
          
-         DO jf = 1 , noumef
+         DO jf = 1, noumef
             IF ( nc(jf) == 1 ) THEN
-               CALL histdef( nice, nam(jf), titn(jf), uni(jf), jpi, jpj &
+               CALL histdef( nice, nam(jf), titn(jf), uni(jf), jpi, jpj   &
                   , nhorid, 1, 1, 1, -99, 32, clop, zsto, zout )
             ENDIF
@@ -133 +134 @@
       !-- calculs des valeurs instantanees
       
-      zcmo( 1:jpi, 1:jpj, 1:noumax ) = 0.0 
+      zcmo(:,:, 1:jpnoumax ) = 0.e0 
       DO jj = 2 , jpjm1
          DO ji = 2 , jpim1
@@ -229 +230 @@
          field_19
 
-      TYPE(FIELD) , DIMENSION(noumax) :: zfield
+      TYPE(FIELD) , DIMENSION(jpnoumax) :: zfield
 
       NAMELIST/namiceout/ noumef, &