Changeset 3358


Ignore:
Timestamp:
2012-04-17T09:03:26+02:00 (9 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:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcsas.F90

    r3335 r3358  
    4545 
    4646   TYPE(FLD), ALLOCATABLE, DIMENSION(:) :: sf_sas  ! structure of input fields (file information, fields read) 
    47    !                                               !  
    48    INTEGER :: nrecprev_tem , nrecprev_uwd 
    4947 
    5048   !! * Substitutions 
     
    7270      ! 
    7371      INTEGER  ::   ji, jj     ! dummy loop indices 
    74       INTEGER  ::   isecsbc    ! number of seconds between Jan. 1st 00h of nit000 year and the middle of time step 
    7572      REAL(wp) ::   ztinta     ! ratio applied to after  records when doing time interpolation 
    7673      REAL(wp) ::   ztintb     ! ratio applied to before records when doing time interpolation 
    77       INTEGER  ::   iswap_tem, iswap_uwd    !  
    7874      !!---------------------------------------------------------------------- 
    7975       
    8076      ! 
    8177      IF( nn_timing == 1 )  CALL timing_start( 'sbc_sas') 
    82       ! 
    83       isecsbc = nsec_year + nsec1jan000  
    84       ! 
    85       IF( kt == nit000 ) THEN 
    86          nrecprev_tem = 0 
    87          nrecprev_uwd = 0 
    88       ELSE 
    89          nrecprev_tem = sf_sas(jf_tem)%nrec_a(2) 
    90          nrecprev_uwd = sf_sas(jf_uwd)%nrec_a(2) 
    91       ENDIF 
    9278      ! 
    9379      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

    r3331 r3358  
    7575      !!                     ***  ROUTINE stp  *** 
    7676      !!                       
    77       !! ** Purpose : - Time stepping of OPA (momentum and active tracer eqs.) 
    78       !!              - Time stepping of LIM (dynamic and thermodynamic eqs.) 
    79       !!              - Tme stepping  of TRC (passive tracer eqs.) 
     77      !! ** Purpose : - Time stepping of SBC (surface boundary) 
    8078      !!  
    8179      !! ** Method  : -1- Update forcings and data   
    82       !!              -2- Update ocean physics  
    83       !!              -3- Compute the t and s trends  
    84       !!              -4- Update t and s  
    85       !!              -5- Compute the momentum trends 
    86       !!              -6- Update the horizontal velocity 
    87       !!              -7- Compute the diagnostics variables (rd,N2, div,cur,w) 
    88       !!              -8- Outputs and diagnostics 
     80      !!              -2- Outputs and diagnostics 
    8981      !!---------------------------------------------------------------------- 
    90       INTEGER ::   jk       ! dummy loop indice 
    9182      INTEGER ::   indic    ! error indicator if < 0 
    9283      !! --------------------------------------------------------------------- 
  • branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/stpctl.F90

    r3331 r3358  
    4848      INTEGER, INTENT( in ) ::   kt         ! ocean time-step index 
    4949      INTEGER, INTENT( inout ) ::   kindic  ! indicator of solver convergence 
    50       !! 
    51       INTEGER  ::   ji, jj, jk              ! dummy loop indices 
    52       INTEGER  ::   ii, ij, ik              ! temporary integers 
    53       REAL(wp) ::   zumax, zsmin, zssh2     ! temporary scalars 
    54       INTEGER, DIMENSION(3) ::   ilocu      !  
    55       INTEGER, DIMENSION(2) ::   ilocs      !  
    5650      !!---------------------------------------------------------------------- 
    5751 
Note: See TracChangeset for help on using the changeset viewer.