Changeset 5087 for LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90
- Timestamp:
- Jul 20, 2024, 12:00:23 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/grid_noro_m.F90
r5075 r5087 160 160 zxtzxusn(i,j)=(zusn(i+1,j)-zusn(i-1,j))**2/zdeltax**2 161 161 zxtzyusn(i,j)=(zusn(i,j+1)-zusn(i,j-1)) /zdeltay & 162 &*(zusn(i+1,j)-zusn(i-1,j)) /zdeltax162 *(zusn(i+1,j)-zusn(i-1,j)) /zdeltax 163 163 END DO 164 164 END DO
Note: See TracChangeset
for help on using the changeset viewer.