Changeset 3477


Ignore:
Timestamp:
Oct 24, 2024, 1:10:49 PM (4 weeks ago)
Author:
afalco
Message:

Pluto PCM: fixed some variables imports for 'libphy' compilation (to compile with DYNAMICO).
AF

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

    r3438 r3477  
    1212  USE tracer_h, only: noms, igcm_n2, lw_n2
    1313  USE callkeys_mod, only: fast,ch4lag,latlag,nbsub,no_n2frost,tsurfmax,kmixmin,source_haze,vmrlag
    14   USE comvert_mod, ONLY: ap,bp
     14  USE vertical_layers_mod, ONLY: ap,bp
    1515  use geometry_mod, only: latitude
    1616
     
    549549
    550550!         Value transfert at the surface interface when condensation sublimation:
    551           if (zmflux(1).lt.0) then 
     551          if (zmflux(1).lt.0) then
    552552!               Surface condensation
    553553                zum(1)= zu(1)
    554                 zvm(1)= zv(1) 
     554                zvm(1)= zv(1)
    555555                ztm(1) = ztc(1)
    556           else 
     556          else
    557557!               Surface sublimation:
    558558                ztm(1) = ztsrf(ig) + pdtsrfc(ig)*ptimestep
    559                 zum(1) = 0 
    560                 zvm(1) = 0 
     559                zum(1) = 0
     560                zvm(1) = 0
    561561          end if
    562562          do iq=1,nq
     
    571571                DO iq=1,nq
    572572                 tname=noms(iq)
    573                  if (tname(1:4).eq."haze") then 
     573                 if (tname(1:4).eq."haze") then
    574574                       !zqm(1,iq)=0.02
    575575                       !zqm(1,iq)=-pdicen2(ig)*0.02
     
    580580                 endif
    581581                ENDDO
    582                ENDIF     
    583           ENDIF     
     582               ENDIF
     583          ENDIF
    584584          ztm(klev+1)= ztc(klev) ! should not be used, but...
    585585          zum(klev+1)= zu(klev)  ! should not be used, but...
  • trunk/LMDZ.PLUTO/libf/phypluto/inifis_mod.F90

    r3474 r3477  
    14621462       call abort_physic(rname, 'if haze are on, tracers must be on!', 1)
    14631463     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
    14641467     if (callmolvis.and..not.callconduct) then
    14651468         call abort_physic(rname, 'if callmolvis is set, callconduct must be true', 1)
  • trunk/LMDZ.PLUTO/libf/phypluto/orbitetriton.F

    r3247 r3477  
    33      use planete_mod, only: p_elips, e_elips, timeperi, obliquit
    44      use comcstfi_mod, only: pi
    5       use comconst_mod, only: daysec
     5      use time_phylmdz_mod, only: daysec
    66      IMPLICIT NONE
    77
  • trunk/LMDZ.PLUTO/libf/phypluto/tabfi_mod.F90

    r3455 r3477  
    132132        if (peri_day.eq.-999.) then
    133133          call abort_physic(modname, &
    134                "Missing value for periastron date in def files!",1)
     134               "Missing value for periastron_day in def files!",1)
    135135        endif
    136136        obliquit=-999.
Note: See TracChangeset for help on using the changeset viewer.