Ignore:
Timestamp:
Nov 7, 2017, 11:47:42 AM (7 years ago)
Author:
idelkadi
Message:

Correction d'erreur sur les cles logiques controlant les sorties des variables Cosp

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90

    r2955 r3057  
    7979  CALL bcast(Lmisr_sim)
    8080  CALL bcast(Lrttov_sim)
     81
    8182  CALL bcast(Lalbisccp)
    8283  CALL bcast(Latb532)
    8384  CALL bcast(Lboxptopisccp)
    8485  CALL bcast(Lboxtauisccp)
    85   CALL bcast(Lcfad_dbze94)
    86   CALL bcast(Lcfad_lidarsr532)
     86  CALL bcast(LcfadDbze94)
     87  CALL bcast(LcfadLidarsr532)
    8788  CALL bcast(Lclcalipso2)
    8889  CALL bcast(Lclcalipso)
     
    107108  CALL bcast(Lcllcalipsoice)
    108109  CALL bcast(Lcllcalipsoun)
    109   CALL bcast(Lclisccp2)
     110  CALL bcast(Lclisccp)
    110111  CALL bcast(Lcllcalipso)
    111112  CALL bcast(Lclmcalipso)
    112113  CALL bcast(Lcltcalipso)
    113114  CALL bcast(Lcltlidarradar)
    114   CALL bcast(Lctpisccp)
     115  CALL bcast(Lpctisccp)
    115116  CALL bcast(Ldbze94)
    116117  CALL bcast(Ltauisccp)
    117118  CALL bcast(Lcltisccp)
    118   CALL bcast(Lparasol_refl)
     119  CALL bcast(LparasolRefl)
    119120  CALL bcast(LclMISR)
    120121  CALL bcast(Lmeantbisccp)
    121122  CALL bcast(Lmeantbclrisccp)
    122123  CALL bcast(Lfrac_out)
    123   CALL bcast(Lbeta_mol532)
     124  CALL bcast(LlidarBetaMol532)
    124125  CALL bcast(Lcltmodis)
    125126  CALL bcast(Lclwmodis)
     
    161162  ! Deal with dependencies
    162163  if (.not.Lradar_sim) then
    163     Lcfad_dbze94   = .false.
     164    LcfadDbze94   = .false.
    164165    Lclcalipso2    = .false.
    165     Lcltlidarradar = .false.
     166    Lcltlidarradar = .false. ! Needs radar & lidar
    166167    Ldbze94        = .false.
    167   endif
     168    Lclcalipso2    = .false. ! Needs radar & lidar
     169  endif
     170
    168171  if (.not.Llidar_sim) then
    169     Latb532 = .false.
    170     Lcfad_lidarsr532 = .false.
     172    Latb532          = .false.
     173    LcfadLidarsr532 = .false.
    171174    Lclcalipso2      = .false.
    172175    Lclcalipso       = .false.
     
    175178    Lclmcalipso      = .false.
    176179    Lcltcalipso      = .false.
    177     Lcltlidarradar   = .false.
    178     Lparasol_refl    = .false.
    179     Lbeta_mol532    = .false.
     180    Lcltlidarradar   = .false. ! Needs radar & lidar
     181    LparasolRefl     = .false.
     182    LlidarBetaMol532 = .false.
    180183!! AI
    181     Lclcalipsoliq    = .false.
    182     Lclcalipsoice    = .false.
    183     Lclcalipsoun    = .false.
    184     Lclcalipsotmp    = .false.
    185     Lclcalipsotmpun    = .false.
     184    Lclcalipsoliq       = .false.
     185    Lclcalipsoice       = .false.
     186    Lclcalipsoun        = .false.
     187    Lclcalipsotmp       = .false.
     188    Lclcalipsotmpun     = .false.
    186189    Lclcalipsotmpliq    = .false.
    187190    Lclcalipsotmpice    = .false.
    188191    Lclhcalipsoliq      = .false.
    189192    Lcllcalipsoliq      = .false.
    190     Lclmcalipsoliq     = .false.
     193    Lclmcalipsoliq      = .false.
    191194    Lcltcalipsoliq      = .false.
    192195    Lclhcalipsoice      = .false.
     
    194197    Lclmcalipsoice      = .false.
    195198    Lcltcalipsoice      = .false.
    196     Lclhcalipsoun      = .false.
    197     Lcllcalipsoun      = .false.
    198     Lclmcalipsoun      = .false.
    199     Lcltcalipsoun      = .false.
    200     Lclopaquecalipso   = .false. !OPAQ
    201     Lclthincalipso     = .false. !OPAQ
    202     Lclzopaquecalipso  = .false. !OPAQ
    203     Lclcalipsoopaque   = .false. !OPAQ
    204     Lclcalipsothin     = .false. !OPAQ
    205     Lclcalipsozopaque  = .false. !OPAQ
    206     Lclcalipsoopacity  = .false. !OPAQ
    207     LprofSR            = .false. !TIBO
    208     Lproftemp          = .false. !TIBO
     199    Lclhcalipsoun       = .false.
     200    Lcllcalipsoun       = .false.
     201    Lclmcalipsoun       = .false.
     202    Lcltcalipsoun       = .false.
     203    Lclopaquecalipso    = .false. !OPAQ
     204    Lclthincalipso      = .false. !OPAQ
     205    Lclzopaquecalipso   = .false. !OPAQ
     206    Lclcalipsoopaque    = .false. !OPAQ
     207    Lclcalipsothin      = .false. !OPAQ
     208    Lclcalipsozopaque   = .false. !OPAQ
     209    Lclcalipsoopacity   = .false. !OPAQ
     210    LprofSR             = .false. !TIBO
     211    Lproftemp           = .false. !TIBO
    209212  endif
    210213
     
    213216    Lboxptopisccp   = .false.
    214217    Lboxtauisccp    = .false.
    215     Lclisccp2       = .false.
    216     Lctpisccp       = .false.
     218    Lclisccp        = .false.
     219    Lpctisccp       = .false.
    217220    Ltauisccp       = .false.
    218     Ltclisccp       = .false.
     221    Lcltisccp       = .false.
    219222    Lmeantbisccp    = .false.
    220223    Lmeantbclrisccp = .false.
    221224  endif
     225
    222226  if (.not.Lmisr_sim) then
    223227    LclMISR = .false.
Note: See TracChangeset for help on using the changeset viewer.