Changeset 1535 for LMDZ4/branches


Ignore:
Timestamp:
Jun 3, 2011, 7:29:00 PM (13 years ago)
Author:
musat
Message:

Ajout flag LOGICAL lCOSP necessaire pour sortir un fichier stations
IM

Location:
LMDZ4/branches/LMDZ4_AR5/libf/cosp
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4_AR5/libf/cosp/phys_cosp.F90

    r1528 r1535  
    11! Simulateur COSP : Cfmip Observation Simulator Package
    2 
    32! ISCCP, Radar (QuickBeam), Lidar et Parasol (ACTSIM), MISR, RTTOVS
    43!Idelkadi Abderrahmane Aout-Septembre 2009
     4
    55
    66  subroutine phys_cosp( itap,dtime,freq_cosp, &
     
    148148  integer                         :: itap,k,ip
    149149  real                            :: dtime,freq_cosp
     150  logical, parameter              :: lCOSP=.FALSE.
    150151
    151152!
  • LMDZ4/branches/LMDZ4_AR5/libf/cosp/write_histdayCOSP.h

    r1279 r1535  
    1010       if (cfg%Llidar_sim) then
    1111         if (cfg%Lcllcalipso) then
    12           CALL histwrite_phy(nid_day_cosp,"cllcalipso",itau_wcosp,stlidar%cldlayer(:,1))
     12          CALL histwrite_phy(nid_day_cosp,lCOSP,"cllcalipso", &
     13     itau_wcosp,stlidar%cldlayer(:,1))
    1314         endif
    1415         if (cfg%Lclhcalipso) then
    15           CALL histwrite_phy(nid_day_cosp,"clhcalipso",itau_wcosp,stlidar%cldlayer(:,3))
     16          CALL histwrite_phy(nid_day_cosp,lCOSP,"clhcalipso", &
     17     itau_wcosp,stlidar%cldlayer(:,3))
    1618         endif
    1719         if (cfg%Lclmcalipso) then
    18           CALL histwrite_phy(nid_day_cosp,"clmcalipso",itau_wcosp,stlidar%cldlayer(:,2))
     20          CALL histwrite_phy(nid_day_cosp,lCOSP,"clmcalipso", &
     21     itau_wcosp,stlidar%cldlayer(:,2))
    1922         endif
    2023         if (cfg%Lcltcalipso) then
    21           CALL histwrite_phy(nid_day_cosp,"cltcalipso",itau_wcosp,stlidar%cldlayer(:,4))
     24          CALL histwrite_phy(nid_day_cosp,lCOSP,"cltcalipso", &
     25     itau_wcosp,stlidar%cldlayer(:,4))
    2226         endif
    2327         if (cfg%Lclcalipso) then
    24           CALL histwrite_phy(nid_day_cosp,"clcalipso",itau_wcosp,stlidar%lidarcld)
     28          CALL histwrite_phy(nid_day_cosp,lCOSP,"clcalipso", &
     29     itau_wcosp,stlidar%lidarcld)
    2530         endif
    2631         if (cfg%Lcfad_lidarsr532) then
    2732           do ii=1,SR_BINS
    28             CALL histwrite_phy(nid_day_cosp,"cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
     33            CALL histwrite_phy(nid_day_cosp,lCOSP, &
     34     "cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
    2935           enddo
    3036         endif
    3137         if (cfg%Lparasol_refl) then
    32            CALL histwrite_phy(nid_day_cosp,"parasol_refl",itau_wcosp,stlidar%parasolrefl)
     38           CALL histwrite_phy(nid_day_cosp,lCOSP,"parasol_refl", &
     39     itau_wcosp,stlidar%parasolrefl)
    3340         endif
    3441         if (cfg%Latb532) then
    3542           do ii=1,Ncolumns
    36             CALL histwrite_phy(nid_day_cosp,"atb532_"//chcol(ii),itau_wcosp,sglidar%beta_tot(:,ii,:))
     43            CALL histwrite_phy(nid_day_cosp,lCOSP,"atb532_"//chcol(ii), &
     44     itau_wcosp,sglidar%beta_tot(:,ii,:))
    3745           enddo
    3846         endif
    3947         if (cfg%Lbeta_mol532) then
    40            CALL histwrite_phy(nid_day_cosp,"beta_mol532",itau_wcosp,sglidar%beta_mol)
     48           CALL histwrite_phy(nid_day_cosp,lCOSP,"beta_mol532", &
     49     itau_wcosp,sglidar%beta_mol)
    4150         endif
    4251        endif ! Lidar
     
    8493          if (cfg%Lclisccp2) then
    8594            do ii=1,7
    86               CALL histwrite_phy(nid_day_cosp,"clisccp2_"//chcol(ii),itau_wcosp,isccp%fq_isccp(:,ii,:))
     95              CALL histwrite_phy(nid_day_cosp,lCOSP, &
     96     "clisccp2_"//chcol(ii),itau_wcosp,isccp%fq_isccp(:,ii,:))
    8797            enddo
    8898          endif
    8999          if (cfg%Lboxtauisccp) then
    90              CALL histwrite_phy(nid_day_cosp,"boxtauisccp",itau_wcosp,isccp%boxtau)
     100             CALL histwrite_phy(nid_day_cosp,lCOSP,"boxtauisccp", &
     101     itau_wcosp,isccp%boxtau)
    91102          endif
    92103          if (cfg%Lboxptopisccp) then
    93              CALL histwrite_phy(nid_day_cosp,"boxptopisccp",itau_wcosp,isccp%boxptop)
     104             CALL histwrite_phy(nid_day_cosp,lCOSP,"boxptopisccp", &
     105     itau_wcosp,isccp%boxptop)
    94106          endif
    95107          if (cfg%Ltclisccp) then
    96              CALL histwrite_phy(nid_day_cosp,"tclisccp",itau_wcosp,isccp%totalcldarea)
     108             CALL histwrite_phy(nid_day_cosp,lCOSP,"tclisccp", &
     109     itau_wcosp,isccp%totalcldarea)
    97110          endif
    98111          if (cfg%Lctpisccp) then
    99              CALL histwrite_phy(nid_day_cosp,"ctpisccp",itau_wcosp,isccp%meanptop)
     112             CALL histwrite_phy(nid_day_cosp,lCOSP,"ctpisccp", &
     113     itau_wcosp,isccp%meanptop)
    100114          endif
    101115          if (cfg%Ltauisccp) then
    102              CALL histwrite_phy(nid_day_cosp,"tauisccp",itau_wcosp,isccp%meantaucld)
     116             CALL histwrite_phy(nid_day_cosp,lCOSP,"tauisccp", &
     117     itau_wcosp,isccp%meantaucld)
    103118          endif
    104119          if (cfg%Lalbisccp) then
    105              CALL histwrite_phy(nid_day_cosp,"albisccp",itau_wcosp,isccp%meanalbedocld)
     120             CALL histwrite_phy(nid_day_cosp,lCOSP,"albisccp", &
     121     itau_wcosp,isccp%meanalbedocld)
    106122          endif
    107123          if (cfg%Lmeantbisccp) then
    108              CALL histwrite_phy(nid_day_cosp,"meantbisccp",itau_wcosp,isccp%meantb)
     124             CALL histwrite_phy(nid_day_cosp,lCOSP,"meantbisccp", &
     125     itau_wcosp,isccp%meantb)
    109126          endif
    110127          if (cfg%Lmeantbclrisccp) then
    111              CALL histwrite_phy(nid_day_cosp,"meantbclrisccp",itau_wcosp,isccp%meantbclr)
     128             CALL histwrite_phy(nid_day_cosp,lCOSP,"meantbclrisccp", &
     129     itau_wcosp,isccp%meantbclr)
    112130          endif
    113131        endif ! Isccp
  • LMDZ4/branches/LMDZ4_AR5/libf/cosp/write_histhfCOSP.h

    r1279 r1535  
    1010       if (cfg%Llidar_sim) then
    1111         if (cfg%Lcllcalipso) then
    12           CALL histwrite_phy(nid_hf_cosp,"cllcalipso",itau_wcosp,stlidar%cldlayer(:,1))
     12          CALL histwrite_phy(nid_hf_cosp,lCOSP,"cllcalipso", &
     13     itau_wcosp,stlidar%cldlayer(:,1))
    1314         endif
    1415         if (cfg%Lclhcalipso) then
    15           CALL histwrite_phy(nid_hf_cosp,"clhcalipso",itau_wcosp,stlidar%cldlayer(:,3))
     16          CALL histwrite_phy(nid_hf_cosp,lCOSP,"clhcalipso", &
     17     itau_wcosp,stlidar%cldlayer(:,3))
    1618         endif
    1719         if (cfg%Lclmcalipso) then
    18           CALL histwrite_phy(nid_hf_cosp,"clmcalipso",itau_wcosp,stlidar%cldlayer(:,2))
     20          CALL histwrite_phy(nid_hf_cosp,lCOSP,"clmcalipso", &
     21     itau_wcosp,stlidar%cldlayer(:,2))
    1922         endif
    2023         if (cfg%Lcltcalipso) then
    21           CALL histwrite_phy(nid_hf_cosp,"cltcalipso",itau_wcosp,stlidar%cldlayer(:,4))
     24          CALL histwrite_phy(nid_hf_cosp,lCOSP,"cltcalipso", &
     25     itau_wcosp,stlidar%cldlayer(:,4))
    2226         endif
    2327         if (cfg%Lclcalipso) then
    24           CALL histwrite_phy(nid_hf_cosp,"clcalipso",itau_wcosp,stlidar%lidarcld)
     28          CALL histwrite_phy(nid_hf_cosp,lCOSP,"clcalipso", &
     29     itau_wcosp,stlidar%lidarcld)
    2530         endif
    2631         if (cfg%Lcfad_lidarsr532) then
    2732           do ii=1,SR_BINS
    28             CALL histwrite_phy(nid_hf_cosp,"cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
     33            CALL histwrite_phy(nid_hf_cosp,lCOSP, &
     34     "cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
    2935           enddo
    3036         endif
    3137         if (cfg%Lparasol_refl) then
    32            CALL histwrite_phy(nid_hf_cosp,"parasol_refl",itau_wcosp,stlidar%parasolrefl)
     38           CALL histwrite_phy(nid_hf_cosp,lCOSP,"parasol_refl", &
     39     itau_wcosp,stlidar%parasolrefl)
    3340         endif
    3441         if (cfg%Latb532) then
    3542           do ii=1,Ncolumns
    36             CALL histwrite_phy(nid_hf_cosp,"atb532_"//chcol(ii),itau_wcosp,sglidar%beta_tot(:,ii,:))
     43            CALL histwrite_phy(nid_hf_cosp,lCOSP,"atb532_"//chcol(ii), &
     44     itau_wcosp,sglidar%beta_tot(:,ii,:))
    3745           enddo
    3846         endif
    3947         if (cfg%Lbeta_mol532) then
    40            CALL histwrite_phy(nid_hf_cosp,"beta_mol532",itau_wcosp,sglidar%beta_mol)
     48           CALL histwrite_phy(nid_hf_cosp,lCOSP,"beta_mol532", &
     49     itau_wcosp,sglidar%beta_mol)
    4150         endif
    4251        endif ! Lidar
     
    8493          if (cfg%Lclisccp2) then
    8594            do ii=1,7
    86               CALL histwrite_phy(nid_hf_cosp,"clisccp2_"//chcol(ii),itau_wcosp,isccp%fq_isccp(:,ii,:))
     95              CALL histwrite_phy(nid_hf_cosp,lCOSP, &
     96     "clisccp2_"//chcol(ii),itau_wcosp,isccp%fq_isccp(:,ii,:))
    8797            enddo
    8898          endif
    8999          if (cfg%Lboxtauisccp) then
    90              CALL histwrite_phy(nid_hf_cosp,"boxtauisccp",itau_wcosp,isccp%boxtau)
     100             CALL histwrite_phy(nid_hf_cosp,lCOSP,"boxtauisccp", &
     101     itau_wcosp,isccp%boxtau)
    91102          endif
    92103          if (cfg%Lboxptopisccp) then
    93              CALL histwrite_phy(nid_hf_cosp,"boxptopisccp",itau_wcosp,isccp%boxptop)
     104             CALL histwrite_phy(nid_hf_cosp,lCOSP,"boxptopisccp", &
     105     itau_wcosp,isccp%boxptop)
    94106          endif
    95107          if (cfg%Ltclisccp) then
    96              CALL histwrite_phy(nid_hf_cosp,"tclisccp",itau_wcosp,isccp%totalcldarea)
     108             CALL histwrite_phy(nid_hf_cosp,lCOSP,"tclisccp", &
     109     itau_wcosp,isccp%totalcldarea)
    97110          endif
    98111          if (cfg%Lctpisccp) then
    99              CALL histwrite_phy(nid_hf_cosp,"ctpisccp",itau_wcosp,isccp%meanptop)
     112             CALL histwrite_phy(nid_hf_cosp,lCOSP,"ctpisccp", &
     113     itau_wcosp,isccp%meanptop)
    100114
    101115          endif
    102116          if (cfg%Ltauisccp) then
    103              CALL histwrite_phy(nid_hf_cosp,"tauisccp",itau_wcosp,isccp%meantaucld)
     117             CALL histwrite_phy(nid_hf_cosp,lCOSP,"tauisccp", &
     118     itau_wcosp,isccp%meantaucld)
    104119          endif
    105120          if (cfg%Lalbisccp) then
    106              CALL histwrite_phy(nid_hf_cosp,"albisccp",itau_wcosp,isccp%meanalbedocld)
     121             CALL histwrite_phy(nid_hf_cosp,lCOSP,"albisccp", &
     122     itau_wcosp,isccp%meanalbedocld)
    107123          endif
    108124          if (cfg%Lmeantbisccp) then
    109              CALL histwrite_phy(nid_hf_cosp,"meantbisccp",itau_wcosp,isccp%meantb)
     125             CALL histwrite_phy(nid_hf_cosp,lCOSP,"meantbisccp", &
     126     itau_wcosp,isccp%meantb)
    110127          endif
    111128          if (cfg%Lmeantbclrisccp) then
    112              CALL histwrite_phy(nid_hf_cosp,"meantbclrisccp",itau_wcosp,isccp%meantbclr)
     129             CALL histwrite_phy(nid_hf_cosp,lCOSP,"meantbclrisccp", &
     130     itau_wcosp,isccp%meantbclr)
    113131          endif
    114132        endif ! Isccp
  • LMDZ4/branches/LMDZ4_AR5/libf/cosp/write_histmthCOSP.h

    r1279 r1535  
    1010       if (cfg%Llidar_sim) then
    1111         if (cfg%Lcllcalipso) then
    12           CALL histwrite_phy(nid_mth_cosp,"cllcalipso",itau_wcosp,stlidar%cldlayer(:,1))
     12          CALL histwrite_phy(nid_mth_cosp,lCOSP,"cllcalipso",itau_wcosp, &
     13     stlidar%cldlayer(:,1))
    1314         endif
    1415         if (cfg%Lclhcalipso) then
    15           CALL histwrite_phy(nid_mth_cosp,"clhcalipso",itau_wcosp,stlidar%cldlayer(:,3))
     16          CALL histwrite_phy(nid_mth_cosp,lCOSP,"clhcalipso",itau_wcosp, &
     17     stlidar%cldlayer(:,3))
    1618         endif
    1719         if (cfg%Lclmcalipso) then
    18           CALL histwrite_phy(nid_mth_cosp,"clmcalipso",itau_wcosp,stlidar%cldlayer(:,2))
     20          CALL histwrite_phy(nid_mth_cosp,lCOSP,"clmcalipso",itau_wcosp, &
     21     stlidar%cldlayer(:,2))
    1922         endif
    2023         if (cfg%Lcltcalipso) then
    21           CALL histwrite_phy(nid_mth_cosp,"cltcalipso",itau_wcosp,stlidar%cldlayer(:,4))
     24          CALL histwrite_phy(nid_mth_cosp,lCOSP,"cltcalipso",itau_wcosp, &
     25     stlidar%cldlayer(:,4))
    2226         endif
    2327         if (cfg%Lclcalipso) then
    24           CALL histwrite_phy(nid_mth_cosp,"clcalipso",itau_wcosp,stlidar%lidarcld)
     28          CALL histwrite_phy(nid_mth_cosp,lCOSP,"clcalipso",itau_wcosp, &
     29     stlidar%lidarcld)
    2530         endif
    2631         if (cfg%Lcfad_lidarsr532) then
    2732           do ii=1,SR_BINS
    28             CALL histwrite_phy(nid_mth_cosp,"cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
     33            CALL histwrite_phy(nid_mth_cosp,lCOSP, &
     34     "cfad_lidarsr532_"//chcol(ii),itau_wcosp,stlidar%cfad_sr(:,ii,:))
    2935           enddo
    3036         endif
    3137         if (cfg%Lparasol_refl) then
    32            CALL histwrite_phy(nid_mth_cosp,"parasol_refl",itau_wcosp,stlidar%parasolrefl)
     38           CALL histwrite_phy(nid_mth_cosp,lCOSP,"parasol_refl", &
     39     itau_wcosp,stlidar%parasolrefl)
    3340         endif
    3441         if (cfg%Latb532) then
    3542           do ii=1,Ncolumns
    36             CALL histwrite_phy(nid_mth_cosp,"atb532_"//chcol(ii),itau_wcosp,sglidar%beta_tot(:,ii,:))
     43            CALL histwrite_phy(nid_mth_cosp,lCOSP, &
     44     "atb532_"//chcol(ii),itau_wcosp,sglidar%beta_tot(:,ii,:))
    3745           enddo
    3846         endif
    3947         if (cfg%Lbeta_mol532) then
    40            CALL histwrite_phy(nid_mth_cosp,"beta_mol532",itau_wcosp,sglidar%beta_mol)
     48           CALL histwrite_phy(nid_mth_cosp,lCOSP,"beta_mol532", &
     49     itau_wcosp,sglidar%beta_mol)
    4150         endif
    4251        endif ! Lidar
     
    8493          if (cfg%Lclisccp2) then
    8594            do ii=1,7
    86               CALL histwrite_phy(nid_mth_cosp,"clisccp2_"//chcol(ii),itau_wcosp,isccp%fq_isccp(:,ii,:))
     95              CALL histwrite_phy(nid_mth_cosp,lCOSP,"clisccp2_"//chcol(ii), &
     96     itau_wcosp,isccp%fq_isccp(:,ii,:))
    8797            enddo
    8898          endif
    8999          if (cfg%Lboxtauisccp) then
    90              CALL histwrite_phy(nid_mth_cosp,"boxtauisccp",itau_wcosp,isccp%boxtau)
     100             CALL histwrite_phy(nid_mth_cosp,lCOSP,"boxtauisccp", &
     101     itau_wcosp,isccp%boxtau)
    91102          endif
    92103          if (cfg%Lboxptopisccp) then
    93              CALL histwrite_phy(nid_mth_cosp,"boxptopisccp",itau_wcosp,isccp%boxptop)
     104             CALL histwrite_phy(nid_mth_cosp,lCOSP,"boxptopisccp", &
     105     itau_wcosp,isccp%boxptop)
    94106          endif
    95107          if (cfg%Ltclisccp) then
    96              CALL histwrite_phy(nid_mth_cosp,"tclisccp",itau_wcosp,isccp%totalcldarea)
     108             CALL histwrite_phy(nid_mth_cosp,lCOSP,"tclisccp", &
     109     itau_wcosp,isccp%totalcldarea)
    97110          endif
    98111          if (cfg%Lctpisccp) then
    99              CALL histwrite_phy(nid_mth_cosp,"ctpisccp",itau_wcosp,isccp%meanptop)
     112             CALL histwrite_phy(nid_mth_cosp,lCOSP,"ctpisccp", &
     113     itau_wcosp,isccp%meanptop)
    100114          endif
    101115          if (cfg%Ltauisccp) then
    102              CALL histwrite_phy(nid_mth_cosp,"tauisccp",itau_wcosp,isccp%meantaucld)
     116             CALL histwrite_phy(nid_mth_cosp,lCOSP,"tauisccp", &
     117     itau_wcosp,isccp%meantaucld)
    103118          endif
    104119          if (cfg%Lalbisccp) then
    105              CALL histwrite_phy(nid_mth_cosp,"albisccp",itau_wcosp,isccp%meanalbedocld)
     120             CALL histwrite_phy(nid_mth_cosp,lCOSP,"albisccp", &
     121     itau_wcosp,isccp%meanalbedocld)
    106122          endif
    107123          if (cfg%Lmeantbisccp) then
    108              CALL histwrite_phy(nid_mth_cosp,"meantbisccp",itau_wcosp,isccp%meantb)
     124             CALL histwrite_phy(nid_mth_cosp,lCOSP,"meantbisccp", &
     125     itau_wcosp,isccp%meantb)
    109126          endif
    110127          if (cfg%Lmeantbclrisccp) then
    111              CALL histwrite_phy(nid_mth_cosp,"meantbclrisccp",itau_wcosp,isccp%meantbclr)
     128             CALL histwrite_phy(nid_mth_cosp,lCOSP,"meantbclrisccp", &
     129     itau_wcosp,isccp%meantbclr)
    112130          endif
    113131        endif ! Isccp
Note: See TracChangeset for help on using the changeset viewer.