Changeset 3477
- Timestamp:
- Oct 24, 2024, 1:10:49 PM (4 weeks ago)
- Location:
- trunk/LMDZ.PLUTO/libf/phypluto
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90
r3438 r3477 12 12 USE tracer_h, only: noms, igcm_n2, lw_n2 13 13 USE callkeys_mod, only: fast,ch4lag,latlag,nbsub,no_n2frost,tsurfmax,kmixmin,source_haze,vmrlag 14 USE comvert_mod, ONLY: ap,bp14 USE vertical_layers_mod, ONLY: ap,bp 15 15 use geometry_mod, only: latitude 16 16 … … 549 549 550 550 ! Value transfert at the surface interface when condensation sublimation: 551 if (zmflux(1).lt.0) then 551 if (zmflux(1).lt.0) then 552 552 ! Surface condensation 553 553 zum(1)= zu(1) 554 zvm(1)= zv(1) 554 zvm(1)= zv(1) 555 555 ztm(1) = ztc(1) 556 else 556 else 557 557 ! Surface sublimation: 558 558 ztm(1) = ztsrf(ig) + pdtsrfc(ig)*ptimestep 559 zum(1) = 0 560 zvm(1) = 0 559 zum(1) = 0 560 zvm(1) = 0 561 561 end if 562 562 do iq=1,nq … … 571 571 DO iq=1,nq 572 572 tname=noms(iq) 573 if (tname(1:4).eq."haze") then 573 if (tname(1:4).eq."haze") then 574 574 !zqm(1,iq)=0.02 575 575 !zqm(1,iq)=-pdicen2(ig)*0.02 … … 580 580 endif 581 581 ENDDO 582 ENDIF 583 ENDIF 582 ENDIF 583 ENDIF 584 584 ztm(klev+1)= ztc(klev) ! should not be used, but... 585 585 zum(klev+1)= zu(klev) ! should not be used, but... -
trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90
r3474 r3477 1462 1462 call abort_physic(rname, 'if haze are on, tracers must be on!', 1) 1463 1463 endif 1464 if (haze_proffix.and.sedimentation) then 1465 call abort_physic(rname, 'if haze profile is set, sedimentation must be deactivated', 1) 1466 endif 1464 1467 if (callmolvis.and..not.callconduct) then 1465 1468 call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1) -
trunk/LMDZ.PLUTO/libf/phypluto/orbitetriton.F
r3247 r3477 3 3 use planete_mod, only: p_elips, e_elips, timeperi, obliquit 4 4 use comcstfi_mod, only: pi 5 use comconst_mod, only: daysec5 use time_phylmdz_mod, only: daysec 6 6 IMPLICIT NONE 7 7 -
trunk/LMDZ.PLUTO/libf/phypluto/tabfi_mod.F90
r3455 r3477 132 132 if (peri_day.eq.-999.) then 133 133 call abort_physic(modname, & 134 "Missing value for periastron datein def files!",1)134 "Missing value for periastron_day in def files!",1) 135 135 endif 136 136 obliquit=-999.
Note: See TracChangeset
for help on using the changeset viewer.