- Timestamp:
- Jul 22, 2024, 9:29:09 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_thermcell_env.F90
r5087 r5099 37 37 mask(:,:)=.true. 38 38 39 !40 39 ! calcul des caracteristiques de l environnement 41 40 DO ll=1,nlay … … 76 75 !Thetal 77 76 zthl(ig,ll)=pt(ig,ll)/zpspsk(ig,ll) 78 ! 77 79 78 enddo 80 79 enddo
Note: See TracChangeset
for help on using the changeset viewer.