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 5944 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90 – NEMO

Ignore:
Timestamp:
2015-11-29T20:28:41+01:00 (8 years ago)
Author:
mathiot
Message:

ISF: change related to reviewers comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r5621 r5944  
    137137      DO jk=1,nb_ana 
    138138       DO ji=1,jpmax_harmo 
    139           IF (TRIM(tname(jk)) .eq. Wave(ji)%cname_tide) THEN 
     139          IF (TRIM(tname(jk)) == Wave(ji)%cname_tide) THEN 
    140140             name(jk) = ji 
    141141             EXIT 
     
    362362               X1=ana_amp(ji,jj,jh,1) 
    363363               X2=-ana_amp(ji,jj,jh,2) 
    364                out_v(ji,jj,       jh)=X1 * vmask_i(ji,jj) 
    365                out_v(ji,jj,nb_ana+jh)=X2 * vmask_i(ji,jj) 
     364               out_v(ji,jj,       jh)=X1 * ssvmask(ji,jj) 
     365               out_v(ji,jj,nb_ana+jh)=X2 * ssvmask(ji,jj) 
    366366            END DO 
    367367         END DO 
     
    492492            DO jj_sd = ji_sd, ninco 
    493493               zval2 = ABS(ztmp3(ji_sd,jj_sd)) 
    494                IF( zval2.GE.zval1 )THEN 
     494               IF( zval2 >= zval1 )THEN 
    495495                  ipivot(ji_sd) = jj_sd 
    496496                  zval1         = zval2 
Note: See TracChangeset for help on using the changeset viewer.