Changeset 3834
- Timestamp:
- Jul 7, 2025, 1:39:14 PM (3 days ago)
- Location:
- trunk/LMDZ.PLUTO/util
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/util/compile
r3815 r3834 11 11 12 12 FLAGS= 13 # FLAGS= -g -O013 # FLAGS="-g -O0" 14 14 15 15 #pgf90 $SOURCE.F90 \ -
trunk/LMDZ.PLUTO/util/zrecast.F90
r3815 r3834 596 596 write(*,*) 'OK, got phisinit or phsifi' 597 597 ierr=NF_CLOSE(infid2) 598 else 599 ierr=NF_GET_VAR_REAL(infid,tmpvarid,phisinit) 600 if (ierr.ne.NF_NOERR) then 601 stop "Error: Failed reading phisinit/phisfi" 602 endif 598 603 endif 599 604 else … … 603 608 endif 604 609 endif 610 print*,"phisinit range:", minval(phisinit), maxval(phisinit) 605 611 606 612 !=============================================================================== … … 953 959 call crude_gcm_za(lonlength,latlength,altlength,timelength, & 954 960 phisinit,ps,press,temp,za_gcm) 961 print*, "GCM altitude range:", minval(za_gcm),maxval(za_gcm) 955 962 else if (ztype.eq.3) then ! above local surface altitudes 956 963 allocate(zs_gcm(lonlength,latlength,altlength,timelength),stat=ierr)
Note: See TracChangeset
for help on using the changeset viewer.