Changeset 1742 for LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90
- Timestamp:
- Apr 5, 2013, 1:49:35 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90
r1724 r1742 101 101 CALL calbeta_clim(knon,jour,rlatd(knindex(:)),beta) 102 102 endif 103 104 103 105 104 ! calculate temperature, heat capacity and conduction flux in soil … … 112 111 ELSE 113 112 cal(:) = RCPD * capsol(:) 113 IF (klon_glo .EQ. 1) THEN 114 cal(:) = 0. 115 ENDIF 114 116 ENDIF 115 117
Note: See TracChangeset
for help on using the changeset viewer.