Changeset 3156 for trunk/LMDZ.MARS


Ignore:
Timestamp:
Dec 12, 2023, 9:17:28 AM (12 months ago)
Author:
csegonne
Message:

MARS PCM
rnew and cpnew are already initialized in physiq_mod.F with call concentrations.F if callthermos is true.

Location:
trunk/LMDZ.MARS
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r3154 r3156  
    43964396To do so, a boolean "virtual", set to false by default, must be set to true (for now hard coded as future modifications will follow).
    43974397Small change following previous commit: when computing the virtual surface temperature, if frost is at the surface, qvap_surf = qsat. else; it is qvap in the first layer
     4398
     4399== 12/12/2023 == CS
     4400rnew and cpnew are already initialized in physiq_mod.F with call concentrations.F if callthermos is true.

  • trunk/LMDZ.MARS/libf/aeronomars/thermosphere.F

    r3015 r3156  
    4545
    4646      INTEGER :: l,ig
    47       logical,save :: firstcall=.true.
    48 
    49 !$OMP THREADPRIVATE(firstcall)
    50 
    51       if (firstcall) then
    52         rnew(1:ngrid,1:nlayer)=r
    53         cpnew(1:ngrid,1:nlayer)=cpp
    54         firstcall= .false.
    55       endif
    5647
    5748      ! initialize tendencies to zero in all cases
Note: See TracChangeset for help on using the changeset viewer.