- Timestamp:
- 2019-11-22T15:29:17+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/DIA/diaharm.F90
r11536 r11949 163 163 164 164 165 SUBROUTINE dia_harm ( kt )165 SUBROUTINE dia_harm ( kt, Kmm ) 166 166 !!---------------------------------------------------------------------- 167 167 !! *** ROUTINE dia_harm *** … … 173 173 !!-------------------------------------------------------------------- 174 174 INTEGER, INTENT( IN ) :: kt 175 INTEGER, INTENT( IN ) :: Kmm ! time level index 175 176 ! 176 177 INTEGER :: ji, jj, jh, jc, nhc … … 193 194 DO ji = 1,jpi 194 195 ! Elevation 195 ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*ssh n(ji,jj)*ssmask (ji,jj)196 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*u n_b(ji,jj)*ssumask(ji,jj)197 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*v n_b(ji,jj)*ssvmask(ji,jj)196 ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*ssh(ji,jj,Kmm)*ssmask (ji,jj) 197 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*uu_b(ji,jj,Kmm)*ssumask(ji,jj) 198 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vv_b(ji,jj,Kmm)*ssvmask(ji,jj) 198 199 END DO 199 200 END DO
Note: See TracChangeset
for help on using the changeset viewer.