New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2124 – NEMO

Changeset 2124


Ignore:
Timestamp:
2010-09-25T12:11:49+02:00 (14 years ago)
Author:
cetlod
Message:

removed useless variables

Location:
branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/PISCES/p4zmort.F90

    r2104 r2124  
    235235      !! 
    236236      !! ** Method  :   Read the nampismort namelist and check the parameters 
    237       !!      called at the first timestep (nittrc000) 
     237      !!      called at the first timestep 
    238238      !! 
    239239      !! ** input   :   Namelist nampismort 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/PISCES/p4zrem.F90

    r2104 r2124  
    408408      !! 
    409409      !! ** Method  :   Read the nampisrem namelist and check the parameters 
    410       !!      called at the first timestep (nittrc000) 
     410      !!      called at the first timestep 
    411411      !! 
    412412      !! ** input   :   Namelist nampisrem 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/PISCES/p4zsink.F90

    r2104 r2124  
    321321      !! 
    322322      !! ** Method  :   Read the nampiskrs namelist and check the parameters 
    323       !!      called at the first timestep (nittrc000) 
     323      !!      called at the first timestep  
    324324      !! 
    325325      !! ** input   :   Namelist nampiskrs 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcadv.F90

    r2082 r2124  
    6565      !!---------------------------------------------------------------------- 
    6666 
    67       IF( kt == nittrc000 )   CALL trc_adv_ctl          ! initialisation & control of options 
     67      IF( kt == nit000 )   CALL trc_adv_ctl          ! initialisation & control of options 
    6868 
    69       IF( neuler == 0 .AND. kt == nittrc000 ) THEN     ! at nit000 
     69      IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000 
    7070         r2dt(:) =  rdttra(:) * FLOAT(nn_dttrc)          ! = rdtra (restarting with Euler time stepping) 
    71       ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN          ! at nit000 or nit000+1 
     71      ELSEIF( kt <= nit000 + nn_dttrc ) THEN          ! at nit000 or nit000+1 
    7272         r2dt(:) = 2. * rdttra(:) * FLOAT(nn_dttrc)      ! = 2 rdttra (leapfrog) 
    7373      ENDIF 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcdmp.F90

    r2030 r2124  
    8282      ! 0. Initialization (first time-step only) 
    8383      !    -------------- 
    84       IF( kt == nittrc000 ) CALL trc_dmp_init 
     84      IF( kt == nit000 ) CALL trc_dmp_init 
    8585 
    8686      IF( l_trdtrc )   ALLOCATE( ztrtrd(jpi,jpj,jpk) )   ! temporary save of trends 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcldf.F90

    r2082 r2124  
    6262      !!---------------------------------------------------------------------- 
    6363 
    64       IF( kt == nittrc000 )   CALL ldf_ctl          ! initialisation & control of options 
     64      IF( kt == nit000 )   CALL ldf_ctl          ! initialisation & control of options 
    6565 
    6666      IF( l_trdtrc )  THEN  

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcnxt.F90

    r2082 r2124  
    8686      !!---------------------------------------------------------------------- 
    8787 
    88       IF( kt == nittrc000 .AND. lwp ) THEN 
     88      IF( kt == nit000 .AND. lwp ) THEN 
    8989         WRITE(numout,*) 
    9090         WRITE(numout,*) 'trc_nxt : time stepping on passive tracers' 
    … …  
    109109 
    110110      ! set time step size (Euler/Leapfrog) 
    111       IF( neuler == 0 .AND. kt ==  nittrc000) THEN  ;  r2dt(:) =     rdttra(:) * FLOAT( nn_dttrc )  ! at nit000             (Euler) 
    112       ELSEIF( kt <= nittrc000 + 1 )           THEN  ;  r2dt(:) = 2.* rdttra(:) * FLOAT( nn_dttrc )  ! at nit000 or nit000+1 (Leapfrog) 
     111      IF( neuler == 0 .AND. kt ==  nit000) THEN  ;  r2dt(:) =     rdttra(:) * FLOAT( nn_dttrc )  ! at nit000             (Euler) 
     112      ELSEIF( kt <= nit000 + 1 )           THEN  ;  r2dt(:) = 2.* rdttra(:) * FLOAT( nn_dttrc )  ! at nit000 or nit000+1 (Leapfrog) 
    113113      ENDIF 
    114114 
    … …  
    120120 
    121121      ! Leap-Frog + Asselin filter time stepping 
    122       IF( lk_vvl ) THEN   ;   CALL tra_nxt_vvl( kt, nittrc000, trb, trn, tra, jptra )      ! variable volume level (vvl)  
    123       ELSE                ;   CALL tra_nxt_fix( kt, nittrc000, trb, trn, tra, jptra )      ! fixed    volume level  
     122      IF( lk_vvl ) THEN   ;   CALL tra_nxt_vvl( kt, trb, trn, tra, jptra )      ! variable volume level (vvl)  
     123      ELSE                ;   CALL tra_nxt_fix( kt, trb, trn, tra, jptra )      ! fixed    volume level  
    124124      ENDIF 
    125125 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcrad.F90

    r2030 r2124  
    5454      !!---------------------------------------------------------------------- 
    5555 
    56       IF( kt == nittrc000 ) THEN 
     56      IF( kt == nit000 ) THEN 
    5757         IF(lwp) WRITE(numout,*) 
    5858         IF(lwp) WRITE(numout,*) 'trc_rad : Correct artificial negative concentrations ' 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trcsbc.F90

    r2115 r2124  
    6565      !! * Local declarations 
    6666      INTEGER  ::   ji, jj, jn           ! dummy loop indices 
    67       REAL(wp) ::   ztra, zsrau, zse3t   ! temporary scalars 
     67      REAL(wp) ::   zsrau, zse3t   ! temporary scalars 
    6868      REAL(wp), DIMENSION(jpi,jpj) ::   zemps  ! surface freshwater flux 
    6969      REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::   ztrtrd 
    … …  
    7171      !!---------------------------------------------------------------------- 
    7272 
    73       IF( kt == nittrc000 ) THEN 
     73      IF( kt == nit000 ) THEN 
    7474         IF(lwp) WRITE(numout,*) 
    7575         IF(lwp) WRITE(numout,*) 'trc_sbc : Passive tracers surface boundary condition' 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trczdf.F90

    r2082 r2124  
    6161      !!--------------------------------------------------------------------- 
    6262 
    63       IF( kt == nittrc000 )   CALL zdf_ctl          ! initialisation & control of options 
     63      IF( kt == nit000 )   CALL zdf_ctl          ! initialisation & control of options 
    6464 
    6565#if ! defined key_pisces 
    66       IF( neuler == 0 .AND. kt == nittrc000 ) THEN     ! at nit000 
     66      IF( neuler == 0 .AND. kt == nit000 ) THEN     ! at nit000 
    6767         r2dt(:) =  rdttra(:) * FLOAT(nn_dttrc)          ! = rdtra (restarting with Euler time stepping) 
    68       ELSEIF( kt <= nittrc000 + nn_dttrc ) THEN          ! at nit000 or nit000+1 
     68      ELSEIF( kt <= nit000 + nn_dttrc ) THEN          ! at nit000 or nit000+1 
    6969         r2dt(:) = 2. * rdttra(:) * FLOAT(nn_dttrc)      ! = 2 rdttra (leapfrog) 
    7070      ENDIF 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trdmld_trc.F90

    r2052 r2124  
    361361      !!---------------------------------------------------------------------- 
    362362 
    363       IF( llwarn ) THEN                                           ! warnings 
    364          IF(      ( nittrc000 /= nit000   ) & 
    365               .OR.( nn_dttrc    /= 1        )    ) THEN 
    366  
    367             WRITE(numout,*) 'Be careful, trends diags never validated' 
    368             STOP 'Uncomment this line to proceed' 
    369          ENDIF 
    370       ENDIF 
     363      IF( nn_dttrc  /= 1  ) CALL ctl_stop( " Be careful, trends diags never validated " ) 
    371364 
    372365      ! ====================================================================== 
    … …  
    422415      ! II.1 Set before values of vertically averages passive tracers 
    423416      ! ------------------------------------------------------------- 
    424       IF( kt > nittrc000 ) THEN 
     417      IF( kt > nit000 ) THEN 
    425418         DO jn = 1, jptra 
    426419            IF( ln_trdtrc(jn) ) THEN 
    … …  
    507500      tmltrd_trc(:,:,:,:) = tmltrd_trc(:,:,:,:) * rn_ucf_trc 
    508501 
    509       itmod = kt - nittrc000 + 1 
     502      itmod = kt - nit000 + 1 
    510503      it    = kt 
    511504 
    … …  
    915908      !!---------------------------------------------------------------------- 
    916909      ! ... Warnings 
    917       IF( llwarn ) THEN 
    918          IF(      ( nittrc000 /= nit000   ) & 
    919               .OR.( nn_dttrc    /= 1        )    ) THEN 
    920  
    921             WRITE(numout,*) 'Be careful, trends diags never validated' 
    922             STOP 'Uncomment this line to proceed' 
    923          END IF 
    924       END IF 
     910      IF( nn_dttrc  /= 1  ) CALL ctl_stop( " Be careful, trends diags never validated " ) 
    925911 
    926912      ! ====================================================================== 
    … …  
    10381024 
    10391025      ! define time axis 
    1040       itmod = kt - nittrc000 + 1 
     1026      itmod = kt - nit000 + 1 
    10411027      it    = kt 
    10421028 
    … …  
    13181304            CALL dia_nam( clhstnam, nn_trd_trc, csuff ) 
    13191305            CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            & 
    1320                &        1, jpi, 1, jpj, nittrc000-nn_dttrc, zjulian, rdt, nh_t(jn), nidtrd(jn), domain_id=nidom ) 
     1306               &        1, jpi, 1, jpj, nit000, zjulian, rdt, nh_t(jn), nidtrd(jn), domain_id=nidom ) 
    13211307       
    13221308            !-- Define the ML depth variable 
    … …  
    13311317          CALL dia_nam( clhstnam, nn_trd_trc, 'trdbio' ) 
    13321318          CALL histbeg( clhstnam, jpi, glamt, jpj, gphit,                                            & 
    1333              &             1, jpi, 1, jpj, nittrc000-nn_dttrc, zjulian, rdt, nh_tb, nidtrdbio, domain_id=nidom ) 
     1319             &             1, jpi, 1, jpj, nit000, zjulian, rdt, nh_tb, nidtrdbio, domain_id=nidom ) 
    13341320#endif 
    13351321 

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/TOP_SRC/TRP/trdmod_trc.F90

    r2030 r2124  
    5050      !!---------------------------------------------------------------------- 
    5151 
    52       IF( kt == nittrc000 ) THEN 
     52      IF( kt == nit000 ) THEN 
    5353!         IF(lwp)WRITE(numout,*) 
    5454!         IF(lwp)WRITE(numout,*) 'trd_mod_trc:' 
Note: See TracChangeset for help on using the changeset viewer.