Changeset 6860 for branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90
- Timestamp:
- 2016-08-09T16:39:23+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limadv_umx.F90
r6746 r6860 213 213 ! 214 214 zzt(ji,jj) = pt(ji,jj) - zc_box * pdt * ( pt_u(ji,jj) - pt_u(ji-1,jj) ) * r1_e12t(ji,jj) 215 IF( lcon ==.TRUE. ) THEN ! clem => for a.div(u) ??215 IF( lcon .eqv. .TRUE. ) THEN ! clem => for a.div(u) ?? 216 216 zzt(ji,jj) = zzt(ji,jj) - pt(ji,jj) * pdt * ( pu(ji,jj) - pu(ji-1,jj) ) * r1_e12t(ji,jj) 217 217 END IF … … 237 237 ! 238 238 zzt(ji,jj) = pt(ji,jj) - zc_box * pdt * ( pt_v(ji,jj) - pt_v(ji,jj-1) ) * r1_e12t(ji,jj) 239 IF( lcon ==.TRUE. ) THEN ! clem => for a.div(u) ??239 IF( lcon .eqv. .TRUE. ) THEN ! clem => for a.div(u) ?? 240 240 zzt(ji,jj) = zzt(ji,jj) - pt(ji,jj) * pdt * ( pv(ji,jj) - pv(ji,jj-1) ) * r1_e12t(ji,jj) 241 241 END IF
Note: See TracChangeset
for help on using the changeset viewer.