Changeset 1735 for trunk/NEMO/OFF_SRC/dtadyn.F90

Timestamp:

2009-11-16T16:39:43+01:00 (14 years ago)

Author:

cetlod

Message:

suppress useless variables in TOP modules, see ticket:602

File:

• trunk/NEMO/OFF_SRC/dtadyn.F90 (modified) (5 diffs)

trunk/NEMO/OFF_SRC/dtadyn.F90

@@ -44 +44 @@
       nficdyn = 2       ! number of dynamical fields 
 
+   CHARACTER(len=45)  ::  &
+      cfile_grid_T = 'dyna_grid_T.nc', &   !: name of the grid_T file
+      cfile_grid_U = 'dyna_grid_U.nc', &   !: name of the grid_U file
+      cfile_grid_V = 'dyna_grid_V.nc', &   !: name of the grid_V file
+      cfile_grid_W = 'dyna_grid_W.nc'      !: name of the grid_W file
+   
+   REAL(wp)      ::   &
+      rnspdta  ,       &  !: number of time step per 2 consecutives data
+      rnspdta2            !: rnspdta * 0.5
+
    INTEGER ::     &
       ndyn1, ndyn2 , &
@@ -49 +59 @@
       numfl_t, numfl_u, &
       numfl_v, numfl_w
-
-   CHARACTER(len=45)  ::  &
-      cfile_grid_T = 'dyna_grid_T.nc', &   !: name of the grid_T file
-      cfile_grid_U = 'dyna_grid_U.nc', &   !: name of the grid_U file
-      cfile_grid_V = 'dyna_grid_V.nc', &   !: name of the grid_V file
-      cfile_grid_W = 'dyna_grid_W.nc'      !: name of the grid_W file
 
    REAL(wp), DIMENSION(jpi,jpj,jpk,2) ::   &
@@ -161 +165 @@
       ENDIF
 
-
-      zpdtan = raass / rdt
-      zpdtpe = zpdtan / FLOAT( ndtadyn )
-      zdemi  = zpdtpe * 0.5
-      zt     = ( FLOAT (kt) + zdemi ) / zpdtpe
-   
+      zt       = ( FLOAT (kt) + rnspdta2 ) / rnspdta
       izt      = INT( zt )
       zweigh   = zt - FLOAT( INT(zt) )
@@ -556 +555 @@
       !! * Local declarations
 
+      REAL(wp) ::   znspyr   !: number of time step per year
 
       NAMELIST/namdyn/ ndtadyn, ndtatot, nsptint, nficdyn, lperdyn,  &
@@ -586 +586 @@
          WRITE(numout,*) ' '
       ENDIF
+
+      znspyr   = nyear_len(1) * rday / rdt  
+      rnspdta  = znspyr / FLOAT( ndtadyn )
+      rnspdta2 = rnspdta * 0.5 
 
    END SUBROUTINE dta_dyn_init