Changeset 2351 for LMDZ5/trunk/libf/phylmd/calcul_divers.h
- Timestamp:
- Aug 25, 2015, 5:14:59 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/calcul_divers.h
r2103 r2351 8 8 DO i=1, klon 9 9 IF(pctsrf(i,is_ter).GT.0.) THEN 10 paire_ter(i)= airephy(i)*pctsrf(i,is_ter)10 paire_ter(i)=cell_area(i)*pctsrf(i,is_ter) 11 11 ENDIF 12 12 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.