- Timestamp:
- 2015-11-29T20:28:41+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r5621 r5944 137 137 DO jk=1,nb_ana 138 138 DO ji=1,jpmax_harmo 139 IF (TRIM(tname(jk)) .eq.Wave(ji)%cname_tide) THEN139 IF (TRIM(tname(jk)) == Wave(ji)%cname_tide) THEN 140 140 name(jk) = ji 141 141 EXIT … … 362 362 X1=ana_amp(ji,jj,jh,1) 363 363 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) 366 366 END DO 367 367 END DO … … 492 492 DO jj_sd = ji_sd, ninco 493 493 zval2 = ABS(ztmp3(ji_sd,jj_sd)) 494 IF( zval2 .GE.zval1 )THEN494 IF( zval2 >= zval1 )THEN 495 495 ipivot(ji_sd) = jj_sd 496 496 zval1 = zval2
Note: See TracChangeset
for help on using the changeset viewer.