Changeset 3853 for trunk/LMDZ.PLUTO/libf/phypluto/vdifc_pluto_mod.F90
- Timestamp:
- Jul 17, 2025, 4:36:29 AM (12 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/phypluto/vdifc_pluto_mod.F90
r3844 r3853 100 100 REAL zcst1 101 101 REAL zu2 102 REAL qsat_co_factor(ngrid) ! factor to prevent co frost formation if no n2 frost103 102 EXTERNAL SSUM,SCOPY 104 103 REAL SSUM 105 104 LOGICAL firstcall 106 105 SAVE firstcall 106 real,dimension(:),save,allocatable :: qsat_co_factor ! factor to prevent co frost formation if no n2 frost 107 !$OMP THREADPRIVATE(qsat_co_factor) 107 108 108 109 !!read fixed profile for kmix … … 161 162 162 163 ! If fixed distribution of N2, then no CO frost either 164 ALLOCATE(qsat_co_factor(ngrid)) 163 165 qsat_co_factor(:)=1. 164 166 IF (no_n2frost) then … … 662 664 !! Prevent CO condensation at the surface 663 665 if (.not.condcosurf) then 664 qsat_co =qsat_co*1.e6666 qsat_co(:)=qsat_co(:)*1.e6 665 667 endif 666 668 if (no_n2frost) then 667 qsat_co =qsat_co*qsat_co_factor669 qsat_co(:)=qsat_co(:)*qsat_co_factor(:) 668 670 endif 669 671
Note: See TracChangeset
for help on using the changeset viewer.