Changeset 3439 for trunk


Ignore:
Timestamp:
Sep 25, 2024, 4:43:32 PM (3 months ago)
Author:
afalco
Message:

Pluto PCM: added some incompatibility checks.
AF

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

Legend:

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

    r3422 r3439  
    14381438
    14391439! Test of incompatibility:
    1440      if (condcosurf.and.no_n2frost) then
    1441        call abort_physic(rname, "CO surface condensation and no_n2frost are both active which may not be relevant", 1)
    1442      end if
     1440
     1441     if ((.not.tracer).and.(haze)) then
     1442       call abort_physic(rname, 'if haze are on, tracers must be on!', 1)
     1443
     1444     endif
     1445     if (callgasvis.and..not.callsoil) then
     1446         call abort_physic(rname, 'if callgasvis is set, callsoil must be true', 1)
     1447
     1448     endif       
     1449     if (paleo.and..not.fast) then
     1450         call abort_physic(rname, 'if paleo is set, fast must be true', 1)
     1451
     1452     endif       
     1453     if ((haze_proffix.or.haze_radproffix).and..not.aerohaze) then
     1454         call abort_physic(rname, 'for now, haze/rad proffix only works w aerohaze=T', 1)
     1455
     1456     endif   
     1457      if (condcosurf.and.no_n2frost) then
     1458        call abort_physic(rname, "CO surface condensation and no_n2frost are both active which may not be relevant", 1)
     1459      end if
    14431460
    14441461     if ((cpp_mugaz_mode >= 1).and.(is_master).and.(ngrid>1)) then
  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3422 r3439  
    376376      REAL zdqflow(ngrid,nq)
    377377
    378       REAL zdteuv(ngrid,nlayer)    ! (K/s)
    379       REAL zdtconduc(ngrid,nlayer) ! (K/s)
    380       REAL zdumolvis(ngrid,nlayer)
    381       REAL zdvmolvis(ngrid,nlayer)
    382       real zdqmoldiff(ngrid,nlayer,nq)
    383 
    384378      ! Haze relatated tendancies
    385379      REAL zdqhaze(ngrid,nlayer,nq)
     
    24442438               call writediagfi(ngrid,"zdtch4cloud","ch4 cloud","T s-1",&
    24452439                           3,zdtch4cloud)
    2446              endif
     2440               call writediagfi(ngrid,"zdqch4cloud","ch4 cloud","T s-1",&
     2441                           3,zdqch4cloud(1,1,igcm_ch4_gas))
     2442            endif
    24472443
    24482444         endif
Note: See TracChangeset for help on using the changeset viewer.