Changeset 2825 for LMDZ5/trunk/libf/phylmd/calcul_divers.h
- Timestamp:
- Mar 15, 2017, 4:32:31 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/calcul_divers.h
r2351 r2825 5 5 IF(itap.EQ.1) THEN 6 6 itapm1=0 7 ! surface terre8 DO i=1, klon9 IF(pctsrf(i,is_ter).GT.0.) THEN10 paire_ter(i)=cell_area(i)*pctsrf(i,is_ter)11 ENDIF12 ENDDO13 7 ENDIF 14 8
Note: See TracChangeset
for help on using the changeset viewer.