Changeset 3156 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Dec 12, 2023, 9:17:28 AM (13 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.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.