Changeset 4046 for trunk


Ignore:
Timestamp:
Feb 5, 2026, 5:50:35 PM (3 weeks ago)
Author:
aslmd
Message:

Titan CRM:
Add MESOSCALE precompiling flags not to call planetwide subroutine (only
for GCM)
EMo

Location:
trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

    r4045 r4046  
    14841484
    14851485
     1486#ifndef MESOSCALE
     1487! diagnostics for GCM
    14861488      ! Surface and soil temperature information
    14871489      call planetwide_sumval(cell_area(:)*tsurf(:)/totarea_planet,Ts1)
    … …  
    15521554
    15531555      endif ! end of 'corrk'
     1556#endif
    15541557
    15551558

  • trunk/LMDZ.TITAN/libf/phytitan/surfini.F

    r1647 r4046  
    3737         ENDDO
    3838      ENDDO
     39
     40#ifndef MESOSCALE
    3941      call planetwide_minval(albedo_bareground,min_albedo)
    4042      call planetwide_maxval(albedo_bareground,max_albedo)
    … …  
    4749      write(*,*) 'surfini: minimum corrected initial albedo',min_albedo
    4850      write(*,*) 'surfini: maximum corrected initial albedo',max_albedo
     51#endif
    4952
    5053

  • trunk/WRF.COMMON/INTERFACES_V4/module_model_constants.F

    r3661 r4046  
    4141
    4242   REAL :: p1000mb !     = 100000.    ! pressure at 1000 hPa (pa)
    43    REAL :: t0 !          = 300.       ! base state tempertaure (K)
     43   REAL :: t0 !          = 300.       ! base state tempertaure (K) !planet dependent!!
    4444   REAL :: p0 !          = p1000mb    ! base state surface pressure (pa)
    4545   REAL :: cpovcv !      = cp/(cp-r_d)
Note: See TracChangeset for help on using the changeset viewer.