Changeset 1735 for trunk/NEMO/TOP_SRC/PISCES/p4zflx.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/TOP_SRC/PISCES/p4zflx.F90 (modified) (4 diffs)

trunk/NEMO/TOP_SRC/PISCES/p4zflx.F90

@@ -39 +39 @@
 
    REAL(wp) :: &
-      xconv  = 0.01/3600     !: coefficients for conversion 
+      xconv  = 0.01/3600      !: coefficients for conversion 
+
+   INTEGER  ::  nspyr         !: number of timestep per year
 
 #if defined key_cpl_carbon_cycle
@@ -68 +70 @@
       !!---------------------------------------------------------------------
       INTEGER, INTENT(in) :: kt
-      INTEGER  ::   ji, jj, jrorr, nspyr
+      INTEGER  ::   ji, jj, jrorr
       REAL(wp) ::   ztc, ztc2, ztc3, zws, zkgwan
       REAL(wp) ::   zfld, zflu, zfld16, zflu16, zfact
@@ -89 +91 @@
       ! -----------------------------------------------------
 
-      nspyr = INT( raass / rdt )
+      nspyr = INT( n/ rdt )
 
       ! SURFACE CHEMISTRY (PCO2 AND [H+] IN
@@ -262 +264 @@
       ENDIF
 
+      ! number of time step per year  
+      nspyr = INT( nyear_len(1) * rday / rdt )
+
 #if defined key_cpl_carbon_cycle
       ! Initialization of Flux of Carbon