Changeset 2987 for trunk/LMDZ.GENERIC/libf/phystd
- Timestamp:
- Jul 3, 2023, 5:22:09 PM (17 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90
r2985 r2987 845 845 846 846 zzlev(1:ngrid,1)=0. 847 zzlev(1:ngrid,nlayer+1)=1.e7 ! Dummy top of last layer above 10000 km...848 847 849 848 do l=2,nlayer … … 854 853 enddo 855 854 enddo 855 856 !Altitude of top interface (nlayer+1), using the thicknesss of the level below the top one. LT22 857 858 zzlev(1:ngrid,nlayer+1) = 2*zzlev(1:ngrid,nlayer)-zzlev(1:ngrid,nlayer-1) 856 859 857 860 ! Compute potential temperature
Note: See TracChangeset
for help on using the changeset viewer.