Ignore:
Timestamp:
Feb 1, 2018, 12:08:25 PM (6 years ago)
Author:
idelkadi
Message:
  • Controle des sorties des champs Cosp en fonction du contenu des fichiers *.xml (pour CMIP)
  • Optimisation de la routine de sorties cosp_output_write.F90
  • Appel a la mise a jours du calendrier pour XIOS commente (car deja fait dans phys_output_write.F90)
File:
1 edited

Legend:

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

    r3152 r3172  
    22!--------------- SUBROUTINE READ_COSP_OUTPUT_NL -------------------------
    33!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4  SUBROUTINE READ_COSP_OUTPUT_NL(cosp_nl,cfg)
     4 SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg)
    55  USE MOD_COSP_CONSTANTS
    66  USE MOD_COSP_TYPES
     
    88
    99#ifdef CPP_XIOS
    10     USE xios, ONLY: xios_get_field_attr, xios_field_is_active
     10    USE xios, ONLY: xios_field_is_active
    1111#endif
    1212
     
    1414  type(cosp_config),intent(out) :: cfg
    1515  ! Local variables
    16   integer :: i
     16  integer :: i, itap
    1717
    1818!! AI
     
    7979  ENDIF
    8080 
    81 ! VEREFIER LES CHAMPS DEMANDES DANS .XML
    82 ! 2. Si champs active dans .xml alors mettre la cles de sortie en true
    83 #ifdef CPP_XIOS
    84    IF (xios_field_is_active("cllcalipso")) Lcllcalipso=.TRUE.
    85              IF (xios_field_is_active("clmcalipso")) Lclmcalipso=.TRUE.
    86              IF (xios_field_is_active("clhcalipso")) Lclhcalipso=.TRUE.
    87              IF (xios_field_is_active("cltcalipso")) Lcltcalipso=.TRUE.
    88              IF (xios_field_is_active("pcllcalipso")) Lcllcalipso=.TRUE.
    89              IF (xios_field_is_active("pclmcalipso")) Lclmcalipso=.TRUE.
    90              IF (xios_field_is_active("pclhcalipso")) Lclhcalipso=.TRUE.
    91              IF (xios_field_is_active("pcltcalipso")) Lcltcalipso=.TRUE.
    92              IF (xios_field_is_active("cllcalipsoice")) Lcllcalipsoice=.TRUE.
    93              IF (xios_field_is_active("clmcalipsoice")) Lclmcalipsoice=.TRUE.
    94              IF (xios_field_is_active("clhcalipsoice")) Lclhcalipsoice=.TRUE.
    95              IF (xios_field_is_active("cltcalipsoice")) Lcltcalipsoice=.TRUE.
    96              IF (xios_field_is_active("cllcalipsoliq")) Lcllcalipsoliq=.TRUE.
    97              IF (xios_field_is_active("clmcalipsoliq")) Lclmcalipsoliq=.TRUE.
    98              IF (xios_field_is_active("clhcalipsoliq")) Lclhcalipsoliq=.TRUE.
    99              IF (xios_field_is_active("cltcalipsoliq")) Lcltcalipsoliq=.TRUE.
    100              IF (xios_field_is_active("cllcalipsoun")) Lcllcalipsoun=.TRUE.
    101              IF (xios_field_is_active("clmcalipsoun")) Lclmcalipsoun=.TRUE.
    102              IF (xios_field_is_active("clhcalipsoun")) Lclhcalipsoun=.TRUE.
    103              IF (xios_field_is_active("cltcalipsoun")) Lcltcalipsoun=.TRUE.
    104              IF (xios_field_is_active("clcalipso")) Lclcalipso=.TRUE.
    105              IF (xios_field_is_active("pclcalipso")) Lclcalipso=.TRUE.
    106              IF (xios_field_is_active("clcalipsoice")) Lclcalipsoice=.TRUE.
    107              IF (xios_field_is_active("clcalipsoliq")) Lclcalipsoliq=.TRUE.
    108              IF (xios_field_is_active("clcalipsoun")) Lclcalipsoun=.TRUE.
    109              IF (xios_field_is_active("clcalipsotmp")) Lclcalipsotmp=.TRUE.
    110              IF (xios_field_is_active("clcalipsotmpice")) Lclcalipsotmpice=.TRUE.
    111              IF (xios_field_is_active("clcalipsotmpliq")) Lclcalipsotmpliq=.TRUE.
    112              IF (xios_field_is_active("clcalipsotmpun")) Lclcalipsotmpun=.TRUE.
    113              IF (xios_field_is_active("parasol_refl")) Lparasol_refl=.TRUE.
    114              IF (xios_field_is_active("parasol_crefl")) Lparasol_refl=.TRUE.
    115              IF (xios_field_is_active("Ncrefl")) Lparasol_refl=.TRUE.
    116              IF (xios_field_is_active("cfad_lidarsr532")) LcfadLidarsr532=.TRUE.
    117              IF (xios_field_is_active("atb532")) Latb532=.TRUE.
    118              IF (xios_field_is_active("beta_mol532")) Lbeta_mol532=.TRUE.
    119              IF (xios_field_is_active("clopaquecalipso")) Lclopaquecalipso=.TRUE.
    120              IF (xios_field_is_active("clthincalipso")) Lclthincalipso=.TRUE.
    121              IF (xios_field_is_active("clzopaquecalipso")) Lclzopaquecalipso=.TRUE.
    122              IF (xios_field_is_active("clcalipsoopaque")) Lclcalipsoopaque=.TRUE.
    123              IF (xios_field_is_active("clcalipsothin")) Lclcalipsothin=.TRUE.
    124              IF (xios_field_is_active("clcalipsozopaque")) Lclcalipsozopaque=.TRUE.
    125              IF (xios_field_is_active("clcalipsoopacity")) Lclcalipsoopacity=.TRUE.
    126              IF (xios_field_is_active("proftemp")) Lproftemp=.TRUE.
    127              IF (xios_field_is_active("profSR")) LprofSR=.TRUE.
    128 
    129    IF (xios_field_is_active("cfadDbze94")) LcfadDbze94=.TRUE.
    130              IF (xios_field_is_active("dbze94")) Ldbze94=.TRUE.
    131              IF (xios_field_is_active("cltlidarradar")) Lcltlidarradar=.TRUE.
    132              IF (xios_field_is_active("clcalipso2")) Lclcalipso2=.TRUE.
    133 
    134    IF (xios_field_is_active("clisccp2")) Lclisccp2=.TRUE.
    135              IF (xios_field_is_active("boxtauisccp")) Lboxtauisccp=.TRUE.
    136              IF (xios_field_is_active("boxptopisccp")) Lboxptopisccp=.TRUE.
    137              IF (xios_field_is_active("tclisccp")) Ltclisccp=.TRUE.
    138              IF (xios_field_is_active("ctpisccp")) Lctpisccp=.TRUE.
    139              IF (xios_field_is_active("tauisccp")) Ltauisccp=.TRUE.
    140              IF (xios_field_is_active("albisccp")) Lalbisccp=.TRUE.
    141              IF (xios_field_is_active("meantbisccp")) Lmeantbisccp=.TRUE.
    142              IF (xios_field_is_active("meantbclrisccp")) Lmeantbclrisccp=.TRUE.
    143 
    144    IF (xios_field_is_active("clMISR")) LclMISR=.TRUE.
    145 
    146              IF (xios_field_is_active("cllmodis")) Lcllmodis=.TRUE.
    147              IF (xios_field_is_active("clmmodis")) Lclmmodis=.TRUE.
    148              IF (xios_field_is_active("clhmodis")) Lclhmodis=.TRUE.
    149              IF (xios_field_is_active("cltmodis")) Lcltmodis=.TRUE.
    150              IF (xios_field_is_active("clwmodis")) Lclwmodis=.TRUE.
    151              IF (xios_field_is_active("climodis")) Lclimodis=.TRUE.
    152              IF (xios_field_is_active("tautmodis")) Ltautmodis=.TRUE.
    153              IF (xios_field_is_active("tauwmodis")) Ltauwmodis=.TRUE.
    154              IF (xios_field_is_active("tauimodis")) Ltauimodis=.TRUE.
    155              IF (xios_field_is_active("tautlogmodis")) Ltautlogmodis=.TRUE.
    156              IF (xios_field_is_active("tauilogmodis")) Ltauilogmodis=.TRUE.
    157              IF (xios_field_is_active("tauwlogmodis")) Ltauwlogmodis=.TRUE.
    158              IF (xios_field_is_active("reffclwmodis")) Lreffclwmodis=.TRUE.
    159              IF (xios_field_is_active("reffclimodis")) Lreffclimodis=.TRUE.
    160              IF (xios_field_is_active("pctmodis")) Lpctmodis=.TRUE.
    161              IF (xios_field_is_active("lwpmodis")) Llwpmodis=.TRUE.
    162              IF (xios_field_is_active("iwpmodis")) Liwpmodis=.TRUE.
    163              IF (xios_field_is_active("clmodis")) Lclmodis=.TRUE.
    164 !             IF (xios_field_is_active("jpdftaureicemodis")) Lcrimodis=.TRUE.
    165              IF (xios_field_is_active("crimodis")) Lcrimodis=.TRUE.
    166 !             IF (xios_field_is_active("jpdftaureliqmodis")) Lcrlmodis=.TRUE.
    167              IF (xios_field_is_active("crlmodis")) Lcrlmodis=.TRUE.
    168 
    169 ! 2.  si champs demande alors activer le simulateur correspondant
    170    IF (xios_field_is_active("cllcalipso").OR. &
    171                 xios_field_is_active("clmcalipso").OR. &
    172                 xios_field_is_active("clhcalipso").OR. &
    173                 xios_field_is_active("cltcalipso").OR. &
    174                 xios_field_is_active("pcllcalipso").OR. &
    175                 xios_field_is_active("pclmcalipso").OR. &
    176                 xios_field_is_active("pclhcalipso").OR. &
    177                 xios_field_is_active("pcltcalipso").OR. &
    178                 xios_field_is_active("cllcalipsoice").OR. &
    179                 xios_field_is_active("clmcalipsoice").OR. &
    180                 xios_field_is_active("clhcalipsoice").OR. &
    181                 xios_field_is_active("cltcalipsoice").OR. &
    182                 xios_field_is_active("cllcalipsoliq").OR. &
    183                 xios_field_is_active("clmcalipsoliq").OR. &
    184                 xios_field_is_active("clhcalipsoliq").OR. &
    185                 xios_field_is_active("cltcalipsoliq").OR. &
    186                 xios_field_is_active("cllcalipsoun").OR. &
    187                 xios_field_is_active("clmcalipsoun").OR. &
    188                 xios_field_is_active("clhcalipsoun").OR. &
    189                 xios_field_is_active("cltcalipsoun").OR. &
    190                 xios_field_is_active("clcalipso").OR. &
    191                 xios_field_is_active("pclcalipso").OR. &
    192                 xios_field_is_active("clcalipsoice").OR. &
    193                 xios_field_is_active("clcalipsoliq").OR. &
    194                 xios_field_is_active("clcalipsoun").OR. &
    195                 xios_field_is_active("clcalipsotmp").OR. &
    196                 xios_field_is_active("clcalipsotmpice").OR. &
    197                 xios_field_is_active("clcalipsotmpliq").OR. &
    198                 xios_field_is_active("clcalipsotmpun").OR. &
    199                 xios_field_is_active("parasol_refl").OR. &
    200                 xios_field_is_active("parasol_crefl").OR. &
    201                 xios_field_is_active("Ncrefl").OR. &
    202                 xios_field_is_active("cfad_lidarsr532").OR. &
    203                 xios_field_is_active("atb532").OR. &
    204                 xios_field_is_active("beta_mol532").OR. &
    205                 xios_field_is_active("clopaquecalipso").OR. &
    206                 xios_field_is_active("clthincalipso").OR. &
    207                 xios_field_is_active("clzopaquecalipso").OR. &
    208                 xios_field_is_active("clcalipsoopaque").OR. &
    209                 xios_field_is_active("clcalipsothin").OR. &
    210                 xios_field_is_active("clcalipsozopaque").OR. &
    211                 xios_field_is_active("clcalipsoopacity").OR. &
    212                 xios_field_is_active("proftemp").OR. &
    213                 xios_field_is_active("profSR")) &
    214                 Llidar_sim=.TRUE.
    215 
    216     IF (xios_field_is_active("cfadDbze94").OR. &
    217                xios_field_is_active("dbze94")) &
    218                Lradar_sim=.TRUE.
    219 
    220     IF (xios_field_is_active("cltlidarradar").OR. &
    221                xios_field_is_active("clcalipso2")) THEN
    222                Lradar_sim=.TRUE.
    223                Llidar_sim=.TRUE.
    224     ENDIF
    225 
    226     IF (xios_field_is_active("clisccp2").OR. &
    227                 xios_field_is_active("boxtauisccp").OR. &
    228                 xios_field_is_active("boxptopisccp").OR. &
    229                 xios_field_is_active("tclisccp").OR. &
    230                 xios_field_is_active("ctpisccp").OR. &
    231                 xios_field_is_active("tauisccp").OR. &
    232                 xios_field_is_active("albisccp").OR. &
    233                 xios_field_is_active("meantbisccp").OR. &
    234                 xios_field_is_active("meantbclrisccp")) &
    235                 Lisccp_sim=.TRUE.
    236 
    237     IF (xios_field_is_active("clMISR")) Lmisr_sim=.TRUE.
    238 
    239     IF (xios_field_is_active("cllmodis").OR. &
    240                 xios_field_is_active("clmmodis").OR. &
    241                 xios_field_is_active("clhmodis").OR. &
    242                 xios_field_is_active("cltmodis").OR. &
    243                 xios_field_is_active("clwmodis").OR. &
    244                 xios_field_is_active("climodis").OR. &
    245                 xios_field_is_active("tautmodis").OR. &
    246                 xios_field_is_active("tauwmodis").OR. &
    247                 xios_field_is_active("tauimodis").OR. &
    248                 xios_field_is_active("tautlogmodis").OR. &
    249                 xios_field_is_active("tauilogmodis").OR. &
    250                 xios_field_is_active("tauwlogmodis").OR. &
    251                 xios_field_is_active("reffclwmodis").OR. &
    252                 xios_field_is_active("reffclimodis").OR. &
    253                 xios_field_is_active("pctmodis").OR. &
    254                 xios_field_is_active("lwpmodis").OR. &
    255                 xios_field_is_active("iwpmodis").OR. &
    256                 xios_field_is_active("clmodis").OR. &
    257                 xios_field_is_active("crimodis").OR. &
    258                 xios_field_is_active("crlmodis")) &
    259                 Lmodis_sim=.TRUE.
    260 
    261 #endif
    262 
    263 
    26481  CALL bcast(Lradar_sim)
    26582  CALL bcast(Llidar_sim)
     
    348165!  print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', &
    349166!           Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim
     167
    350168
    351169  ! Deal with dependencies
     
    714532  cfg%Lcrimodis=Lcrimodis
    715533  cfg%Lcrlmodis=Lcrlmodis
     534 
     535    if (itap.gt.1) then
     536
     537! VEREFIER LES CHAMPS DEMANDES DANS .XML
     538! 2. Si champs active dans .xml alors mettre la cles de sortie en true
     539 IF (xios_field_is_active("cllcalipso")) cfg%Lcllcalipso=.TRUE.
     540 IF (xios_field_is_active("clmcalipso")) cfg%Lclmcalipso=.TRUE.
     541 IF (xios_field_is_active("clhcalipso")) cfg%Lclhcalipso=.TRUE.
     542 IF (xios_field_is_active("cltcalipso")) cfg%Lcltcalipso=.TRUE.
     543! IF (xios_field_is_active("pcllcalipso")) cfg%Lcllcalipso=.TRUE.
     544! IF (xios_field_is_active("pclmcalipso")) cfg%Lclmcalipso=.TRUE.
     545! IF (xios_field_is_active("pclhcalipso")) cfg%Lclhcalipso=.TRUE.
     546! IF (xios_field_is_active("pcltcalipso")) cfg%Lcltcalipso=.TRUE.
     547 IF (xios_field_is_active("cllcalipsoice")) cfg%Lcllcalipsoice=.TRUE.
     548 IF (xios_field_is_active("clmcalipsoice")) cfg%Lclmcalipsoice=.TRUE.
     549 IF (xios_field_is_active("clhcalipsoice")) cfg%Lclhcalipsoice=.TRUE.
     550 IF (xios_field_is_active("cltcalipsoice")) cfg%Lcltcalipsoice=.TRUE.
     551 IF (xios_field_is_active("cllcalipsoliq")) cfg%Lcllcalipsoliq=.TRUE.
     552 IF (xios_field_is_active("clmcalipsoliq")) cfg%Lclmcalipsoliq=.TRUE.
     553 IF (xios_field_is_active("clhcalipsoliq")) cfg%Lclhcalipsoliq=.TRUE.
     554 IF (xios_field_is_active("cltcalipsoliq")) cfg%Lcltcalipsoliq=.TRUE.
     555 IF (xios_field_is_active("cllcalipsoun")) cfg%Lcllcalipsoun=.TRUE.
     556 IF (xios_field_is_active("clmcalipsoun")) cfg%Lclmcalipsoun=.TRUE.
     557 IF (xios_field_is_active("clhcalipsoun")) cfg%Lclhcalipsoun=.TRUE.
     558 IF (xios_field_is_active("cltcalipsoun")) cfg%Lcltcalipsoun=.TRUE.
     559 IF (xios_field_is_active("clcalipso")) cfg%Lclcalipso=.TRUE.
     560! IF (xios_field_is_active("pclcalipso")) cfg%Lclcalipso=.TRUE.
     561 IF (xios_field_is_active("clcalipsoice")) cfg%Lclcalipsoice=.TRUE.
     562 IF (xios_field_is_active("clcalipsoliq")) cfg%Lclcalipsoliq=.TRUE.
     563 IF (xios_field_is_active("clcalipsoun")) cfg%Lclcalipsoun=.TRUE.
     564 IF (xios_field_is_active("clcalipsotmp")) cfg%Lclcalipsotmp=.TRUE.
     565 IF (xios_field_is_active("clcalipsotmpice")) cfg%Lclcalipsotmpice=.TRUE.
     566 IF (xios_field_is_active("clcalipsotmpliq")) cfg%Lclcalipsotmpliq=.TRUE.
     567 IF (xios_field_is_active("clcalipsotmpun")) cfg%Lclcalipsotmpun=.TRUE.
     568 IF (xios_field_is_active("parasol_refl")) cfg%LparasolRefl=.TRUE.
     569 IF (xios_field_is_active("parasol_crefl")) cfg%LparasolRefl=.TRUE.
     570 IF (xios_field_is_active("Ncrefl")) cfg%LparasolRefl=.TRUE.
     571 IF (xios_field_is_active("cfad_lidarsr532")) cfg%LcfadLidarsr532=.TRUE.
     572 IF (xios_field_is_active("atb532")) cfg%Latb532=.TRUE.
     573 IF (xios_field_is_active("beta_mol532")) cfg%LlidarBetaMol532=.TRUE.
     574 IF (xios_field_is_active("clopaquecalipso")) cfg%Lclopaquecalipso=.TRUE.
     575 IF (xios_field_is_active("clthincalipso")) cfg%Lclthincalipso=.TRUE.
     576 IF (xios_field_is_active("clzopaquecalipso")) cfg%Lclzopaquecalipso=.TRUE.
     577 IF (xios_field_is_active("clcalipsoopaque")) cfg%Lclcalipsoopaque=.TRUE.
     578 IF (xios_field_is_active("clcalipsothin")) cfg%Lclcalipsothin=.TRUE.
     579 IF (xios_field_is_active("clcalipsozopaque")) cfg%Lclcalipsozopaque=.TRUE.
     580 IF (xios_field_is_active("clcalipsoopacity")) cfg%Lclcalipsoopacity=.TRUE.
     581 IF (xios_field_is_active("proftemp")) cfg%Lproftemp=.TRUE.
     582 IF (xios_field_is_active("profSR")) cfg%LprofSR=.TRUE.
     583
     584 IF (xios_field_is_active("cfadDbze94")) cfg%LcfadDbze94=.TRUE.
     585 IF (xios_field_is_active("dbze94")) cfg%Ldbze94=.TRUE.
     586 IF (xios_field_is_active("cltlidarradar")) cfg%Lcltlidarradar=.TRUE.
     587 IF (xios_field_is_active("clcalipso2")) cfg%Lclcalipso2=.TRUE.
     588
     589   IF (xios_field_is_active("clisccp2")) cfg%Lclisccp=.TRUE.
     590 IF (xios_field_is_active("boxtauisccp")) cfg%Lboxtauisccp=.TRUE.
     591 IF (xios_field_is_active("boxptopisccp")) cfg%Lboxptopisccp=.TRUE.
     592 IF (xios_field_is_active("tclisccp")) cfg%Lcltisccp=.TRUE.
     593 IF (xios_field_is_active("ctpisccp")) cfg%Lpctisccp=.TRUE.
     594 IF (xios_field_is_active("tauisccp")) cfg%Ltauisccp=.TRUE.
     595 IF (xios_field_is_active("albisccp")) cfg%Lalbisccp=.TRUE.
     596 IF (xios_field_is_active("meantbisccp")) cfg%Lmeantbisccp=.TRUE.
     597 IF (xios_field_is_active("meantbclrisccp")) cfg%Lmeantbclrisccp=.TRUE.
     598
     599   IF (xios_field_is_active("clMISR")) cfg%LclMISR=.TRUE.
     600
     601IF (xios_field_is_active("cllmodis")) cfg%Lcllmodis=.TRUE.
     602 IF (xios_field_is_active("clmmodis")) cfg%Lclmmodis=.TRUE.
     603 IF (xios_field_is_active("clhmodis")) cfg%Lclhmodis=.TRUE.
     604 IF (xios_field_is_active("cltmodis")) cfg%Lcltmodis=.TRUE.
     605 IF (xios_field_is_active("clwmodis")) cfg%Lclwmodis=.TRUE.
     606 IF (xios_field_is_active("climodis")) cfg%Lclimodis=.TRUE.
     607 IF (xios_field_is_active("tautmodis")) cfg%Ltautmodis=.TRUE.
     608 IF (xios_field_is_active("tauwmodis")) cfg%Ltauwmodis=.TRUE.
     609 IF (xios_field_is_active("tauimodis")) cfg%Ltauimodis=.TRUE.
     610 IF (xios_field_is_active("tautlogmodis")) cfg%Ltautlogmodis=.TRUE.
     611 IF (xios_field_is_active("tauilogmodis")) cfg%Ltauilogmodis=.TRUE.
     612 IF (xios_field_is_active("tauwlogmodis")) cfg%Ltauwlogmodis=.TRUE.
     613 IF (xios_field_is_active("reffclwmodis")) cfg%Lreffclwmodis=.TRUE.
     614 IF (xios_field_is_active("reffclimodis")) cfg%Lreffclimodis=.TRUE.
     615 IF (xios_field_is_active("pctmodis")) cfg%Lpctmodis=.TRUE.
     616 IF (xios_field_is_active("lwpmodis")) cfg%Llwpmodis=.TRUE.
     617 IF (xios_field_is_active("iwpmodis")) cfg%Liwpmodis=.TRUE.
     618 IF (xios_field_is_active("clmodis")) cfg%Lclmodis=.TRUE.
     619 IF (xios_field_is_active("crimodis")) cfg%Lcrimodis=.TRUE.
     620 IF (xios_field_is_active("crlmodis")) cfg%Lcrlmodis=.TRUE.
     621
     622! 2.  si champs demande alors activer le simulateur correspondant
     623   IF (xios_field_is_active("cllcalipso").OR. &
     624       xios_field_is_active("clmcalipso").OR. &
     625       xios_field_is_active("clhcalipso").OR. &
     626       xios_field_is_active("cltcalipso").OR. &
     627!       xios_field_is_active("pcllcalipso").OR. &
     628!       xios_field_is_active("pclmcalipso").OR. &
     629!       xios_field_is_active("pclhcalipso").OR. &
     630!       xios_field_is_active("pcltcalipso").OR. &
     631       xios_field_is_active("cllcalipsoice").OR. &
     632       xios_field_is_active("clmcalipsoice").OR. &
     633       xios_field_is_active("clhcalipsoice").OR. &
     634       xios_field_is_active("cltcalipsoice").OR. &
     635       xios_field_is_active("cllcalipsoliq").OR. &
     636       xios_field_is_active("clmcalipsoliq").OR. &
     637       xios_field_is_active("clhcalipsoliq").OR. &
     638       xios_field_is_active("cltcalipsoliq").OR. &
     639       xios_field_is_active("cllcalipsoun").OR. &
     640       xios_field_is_active("clmcalipsoun").OR. &
     641       xios_field_is_active("clhcalipsoun").OR. &
     642       xios_field_is_active("cltcalipsoun").OR. &
     643       xios_field_is_active("clcalipso").OR. &
     644!       xios_field_is_active("pclcalipso").OR. &
     645       xios_field_is_active("clcalipsoice").OR. &
     646       xios_field_is_active("clcalipsoliq").OR. &
     647       xios_field_is_active("clcalipsoun").OR. &
     648       xios_field_is_active("clcalipsotmp").OR. &
     649       xios_field_is_active("clcalipsotmpice").OR. &
     650       xios_field_is_active("clcalipsotmpliq").OR. &
     651       xios_field_is_active("clcalipsotmpun").OR. &
     652       xios_field_is_active("parasol_refl").OR. &
     653       xios_field_is_active("parasol_crefl").OR. &
     654       xios_field_is_active("Ncrefl").OR. &
     655       xios_field_is_active("cfad_lidarsr532").OR. &
     656       xios_field_is_active("atb532").OR. &
     657       xios_field_is_active("beta_mol532").OR. &
     658       xios_field_is_active("clopaquecalipso").OR. &
     659       xios_field_is_active("clthincalipso").OR. &
     660       xios_field_is_active("clzopaquecalipso").OR. &
     661       xios_field_is_active("clcalipsoopaque").OR. &
     662       xios_field_is_active("clcalipsothin").OR. &
     663       xios_field_is_active("clcalipsozopaque").OR. &
     664       xios_field_is_active("clcalipsoopacity").OR. &
     665       xios_field_is_active("proftemp").OR. &
     666       xios_field_is_active("profSR")) cfg%Llidar_sim=.TRUE.
     667
     668    IF (xios_field_is_active("cfadDbze94").OR. &
     669      xios_field_is_active("dbze94")) &
     670               cfg%Lradar_sim=.TRUE.
     671
     672    IF (xios_field_is_active("cltlidarradar").OR. &
     673      xios_field_is_active("clcalipso2")) THEN
     674               cfg%Lradar_sim=.TRUE.
     675               cfg%Llidar_sim=.TRUE.
     676    ENDIF
     677
     678    IF (xios_field_is_active("clisccp2").OR. &
     679       xios_field_is_active("boxtauisccp").OR. &
     680       xios_field_is_active("boxptopisccp").OR. &
     681       xios_field_is_active("tclisccp").OR. &
     682       xios_field_is_active("ctpisccp").OR. &
     683       xios_field_is_active("tauisccp").OR. &
     684       xios_field_is_active("albisccp").OR. &
     685       xios_field_is_active("meantbisccp").OR. &
     686       xios_field_is_active("meantbclrisccp")) cfg%Lisccp_sim=.TRUE.
     687
     688    IF (xios_field_is_active("clMISR")) cfg%Lmisr_sim=.TRUE.
     689
     690    IF (xios_field_is_active("cllmodis").OR. &
     691       xios_field_is_active("clmmodis").OR. &
     692       xios_field_is_active("clhmodis").OR. &
     693       xios_field_is_active("cltmodis").OR. &
     694       xios_field_is_active("clwmodis").OR. &
     695       xios_field_is_active("climodis").OR. &
     696       xios_field_is_active("tautmodis").OR. &
     697       xios_field_is_active("tauwmodis").OR. &
     698       xios_field_is_active("tauimodis").OR. &
     699       xios_field_is_active("tautlogmodis").OR. &
     700       xios_field_is_active("tauilogmodis").OR. &
     701       xios_field_is_active("tauwlogmodis").OR. &
     702       xios_field_is_active("reffclwmodis").OR. &
     703       xios_field_is_active("reffclimodis").OR. &
     704       xios_field_is_active("pctmodis").OR. &
     705       xios_field_is_active("lwpmodis").OR. &
     706       xios_field_is_active("iwpmodis").OR. &
     707       xios_field_is_active("clmodis").OR. &
     708       xios_field_is_active("crimodis").OR. &
     709       xios_field_is_active("crlmodis")) cfg%Lmodis_sim=.TRUE.
     710
     711  endif
     712
    716713
    717714 END SUBROUTINE READ_COSP_OUTPUT_NL
Note: See TracChangeset for help on using the changeset viewer.