Changeset 3358

Timestamp:

2012-04-17T09:03:26+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3322_NOCS09_SAS: remove redundant variables

Location:

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC

Files:

• sbcsas.F90 (modified) (2 diffs)
• step.F90 (modified) (1 diff)
• stpctl.F90 (modified) (1 diff)

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcsas.F90

@@ -45 +45 @@
 
    TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_sas  ! structure of input fields (file information, fields read)
-   !                                               ! 
-   INTEGER :: nrecprev_tem , nrecprev_uwd
 
    !! * Substitutions
@@ -72 +70 @@
       !
       INTEGER  ::   ji, jj     ! dummy loop indices
-      INTEGER  ::   isecsbc    ! number of seconds between Jan. 1st 00h of nit000 year and the middle of time step
       REAL(wp) ::   ztinta     ! ratio applied to after  records when doing time interpolation
       REAL(wp) ::   ztintb     ! ratio applied to before records when doing time interpolation
-      INTEGER  ::   iswap_tem, iswap_uwd    ! 
       !!----------------------------------------------------------------------
       
       !
       IF( nn_timing == 1 )  CALL timing_start( 'sbc_sas')
-      !
-      isecsbc = nsec_year + nsec1jan000 
-      !
-      IF( kt == nit000 ) THEN
-         nrecprev_tem = 0
-         nrecprev_uwd = 0
-      ELSE
-         nrecprev_tem = sf_sas(jf_tem)%nrec_a(2)
-         nrecprev_uwd = sf_sas(jf_uwd)%nrec_a(2)
-      ENDIF
       !
       CALL fld_read( kt, 1, sf_sas )      !==   read data at kt time step   ==!

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/step.F90

@@ -75 +75 @@
       !!                     ***  ROUTINE stp  ***
       !!                      
-      !! ** Purpose : - Time stepping of OPA (momentum and active tracer eqs.)
-      !!              - Time stepping of LIM (dynamic and thermodynamic eqs.)
-      !!              - Tme stepping  of TRC (passive tracer eqs.)
+      !! ** Purpose : - Time stepping of SBC (surface boundary)
       !! 
       !! ** Method  : -1- Update forcings and data  
-      !!              -2- Update ocean physics 
-      !!              -3- Compute the t and s trends 
-      !!              -4- Update t and s 
-      !!              -5- Compute the momentum trends
-      !!              -6- Update the horizontal velocity
-      !!              -7- Compute the diagnostics variables (rd,N2, div,cur,w)
-      !!              -8- Outputs and diagnostics
+      !!              -2- Outputs and diagnostics
       !!----------------------------------------------------------------------
-      INTEGER ::   jk       ! dummy loop indice
       INTEGER ::   indic    ! error indicator if < 0
       !! ---------------------------------------------------------------------

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

@@ -48 +48 @@
       INTEGER, INTENT( in ) ::   kt         ! ocean time-step index
       INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence
-      !!
-      INTEGER  ::   ji, jj, jk              ! dummy loop indices
-      INTEGER  ::   ii, ij, ik              ! temporary integers
-      REAL(wp) ::   zumax, zsmin, zssh2     ! temporary scalars
-      INTEGER, DIMENSION(3) ::   ilocu      ! 
-      INTEGER, DIMENSION(2) ::   ilocs      ! 
       !!----------------------------------------------------------------------