Changeset 1664 for LMDZ5/branches/testing/libf/phylmd/press_coefoz_m.F90
- Timestamp:
- Oct 9, 2012, 3:29:15 PM (12 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk (added) merged: 1555-1557,1559-1566,1568-1575
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/press_coefoz_m.F90
r1403 r1664 60 60 press_in_edg(1) = 0. 61 61 ! We choose edges halfway in logarithm: 62 forall (k = 2:n_plev) press_in_edg(k) = sqrt(plev(k - 1) * plev(k)) 62 DO k = 2,n_plev 63 press_in_edg(k) = SQRT(plev(k - 1) * plev(k)) 64 ENDDO 63 65 press_in_edg(n_plev + 1) = huge(0.) 64 66 ! (infinity, but any value guaranteed to be greater than the
Note: See TracChangeset
for help on using the changeset viewer.