Changeset 3172 for LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90
- Timestamp:
- Feb 1, 2018, 12:08:25 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/cosp/read_cosp_output_nl.F90
r3152 r3172 2 2 !--------------- SUBROUTINE READ_COSP_OUTPUT_NL ------------------------- 3 3 !%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 4 SUBROUTINE READ_COSP_OUTPUT_NL( cosp_nl,cfg)4 SUBROUTINE READ_COSP_OUTPUT_NL(itap,cosp_nl,cfg) 5 5 USE MOD_COSP_CONSTANTS 6 6 USE MOD_COSP_TYPES … … 8 8 9 9 #ifdef CPP_XIOS 10 USE xios, ONLY: xios_ get_field_attr, xios_field_is_active10 USE xios, ONLY: xios_field_is_active 11 11 #endif 12 12 … … 14 14 type(cosp_config),intent(out) :: cfg 15 15 ! Local variables 16 integer :: i 16 integer :: i, itap 17 17 18 18 !! AI … … 79 79 ENDIF 80 80 81 ! VEREFIER LES CHAMPS DEMANDES DANS .XML82 ! 2. Si champs active dans .xml alors mettre la cles de sortie en true83 #ifdef CPP_XIOS84 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 correspondant170 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")) THEN222 Lradar_sim=.TRUE.223 Llidar_sim=.TRUE.224 ENDIF225 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 #endif262 263 264 81 CALL bcast(Lradar_sim) 265 82 CALL bcast(Llidar_sim) … … 348 165 ! print*,' Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim', & 349 166 ! Lradar_sim,Llidar_sim,Lisccp_sim,Lmisr_sim,Lrttov_sim 167 350 168 351 169 ! Deal with dependencies … … 714 532 cfg%Lcrimodis=Lcrimodis 715 533 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 601 IF (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 716 713 717 714 END SUBROUTINE READ_COSP_OUTPUT_NL
Note: See TracChangeset
for help on using the changeset viewer.