Changeset 1998 for LMDZ5/trunk/libf/phylmd/thermcell_height.F90
- Timestamp:
- Mar 19, 2014, 3:14:30 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/thermcell_height.F90
r1907 r1998 84 84 enddo 85 85 86 if (iflag_thermals_ed.ge.1) then 87 86 ! if (iflag_thermals_ed.ge.1) then 87 if (1==0) then 88 !CR:date de quand le calcul du zmax continu etait buggue 88 89 num(:)=0. 89 90 denom(:)=0. … … 100 101 endif 101 102 enddo 102 103 104 103 104 else 105 !CR:Calcul de zmax continu via le linter 105 106 do ig=1,ngrid 106 107 ! calcul de zlevinter
Note: See TracChangeset
for help on using the changeset viewer.