Changeset 988


Ignore:
Timestamp:
2008-05-16T18:07:42+02:00 (12 years ago)
Author:
rblod
Message:

Minor bugs, see ticket #153

Location:
trunk/NEMO
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/limrhg.F90

    r921 r988  
    328328 
    329329         DO jj = k_j1+1, k_jpj-1 
    330             DO ji = fs_2, fs_jpim1 
     330            DO ji = fs_2, jpim1   !RB bug no vect opt due to tmi 
    331331 
    332332               !   
     
    654654      DO jj = k_j1+1, k_jpj-1 
    655655!CDIR NOVERRCHK 
    656          DO ji = fs_2, fs_jpim1 
     656         DO ji = fs_2, jpim1   !RB bug no vect opt due to tmi 
    657657            !- zdd(:,:), zdt(:,:): divergence and tension at centre  
    658658            !- zds(:,:): shear on northeast corner of grid cells 
  • trunk/NEMO/OPA_SRC/TRA/tradmp.F90

    r719 r988  
    4747   LOGICAL, PUBLIC            ::   lk_tradmp = .TRUE.     !: internal damping flag 
    4848#endif 
    49    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   strdmp   !: damping salinity trend (psu/s) 
    5049   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   resto    !: restoring coeff. on T and S (s-1) 
    5150    
     
    121120                  sa(ji,jj,jk) = sa(ji,jj,jk) + zsa 
    122121                  ! save the salinity trend (used in flx to close the salt budget) 
    123                   strdmp(ji,jj,jk) = zsa 
    124122               END DO 
    125123            END DO 
     
    142140                  sa(ji,jj,jk) = sa(ji,jj,jk) + zsa 
    143141                  ! save the salinity trend (used in flx to close the salt budget) 
    144                   strdmp(ji,jj,jk) = zsa 
    145142               END DO 
    146143            END DO 
     
    162159                  sa(ji,jj,jk) = sa(ji,jj,jk) + zsa 
    163160                  ! save the salinity trend (used in flx to close the salt budget) 
    164                   strdmp(ji,jj,jk) = zsa 
    165161               END DO 
    166162            END DO 
     
    229225      IF( .NOT.lk_dtasal .OR. .NOT.lk_dtatem )   & 
    230226         &   CALL ctl_stop( 'no temperature and/or salinity data define key_dtatem and key_dtasal' ) 
    231  
    232       strdmp(:,:,:) = 0.e0       ! internal damping salinity trend (used in ocesbc) 
    233227 
    234228      !                          ! Damping coefficients initialization 
  • trunk/NEMO/OPA_SRC/eosbn2.F90

    r920 r988  
    4747 
    4848   PUBLIC   eos        ! called by step, istate, tranpc and zpsgrd modules 
     49   PUBLIC   eos_init   ! called by istate module 
    4950   PUBLIC   bn2        ! called by step module 
    5051   PUBLIC   tfreez     ! called by sbcice_... modules 
  • trunk/NEMO/OPA_SRC/step.F90

    r923 r988  
    364364      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    365365 
     366#if defined key_oasis3 
    366367      IF( lk_cpl    )   CALL cpl_stp( kstp )                 ! coupled mode : field exchanges 
     368#endif 
    367369      ! 
    368370   END SUBROUTINE stp 
Note: See TracChangeset for help on using the changeset viewer.