ini_histmthCOSP.h

Go to the documentation of this file.

! Abderrahmane Idelkadi Septebmre 2009
! Sorties journalieres de COSP 
! Pour l'instant sorties Lidar et ISCCP
!
! sorties par jour
!
!$OMP MASTER
        zstomth = ecrit_mth
        zout = freq_COSP
!
!       PRINT*, 'La frequence de sortie hf3d est de ', ecrit_hf
!

        idayref = day_ref
        CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
        CALL histbeg_phy("histmthCOSP",itau_phy,zjulian,dtime,nhori,nid_mth_cosp) 

! Definition de l'axe vertical
        print*,'height_mlev=',vgrid%mz
       if (use_vgrid) then 
        CALL histvert(nid_mth_cosp,"height","height","m",Nlevout,vgrid%z,nvert)
       else
        CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","Pa",Nlevout,presnivs,nvert,"down")
       endif
        CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)

        CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)

        CALL histvert(nid_mth_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp)

        CALL histvert(nid_mth_cosp,"column","column","count",Ncolumns,column_ax(1:Ncolumns),nvertcol)

! Sorties LIDAR
       if (cfg%Llidar_sim) then
         if (cfg%Lcllcalipso) then
         CALL histdef(nid_mth_cosp, "cllcalipso", &
                     "Lidar Low-level Cloud Fraction", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
         endif
         if (cfg%Lclhcalipso) then
         CALL histdef(nid_mth_cosp, "clhcalipso", &
                     "Lidar High-level Cloud Fraction", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
         endif
         if (cfg%Lclmcalipso) then
         CALL histdef(nid_mth_cosp, "clmcalipso", &
                     "Lidar Mid-level Cloud Fraction", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
         endif
         if (cfg%Lcltcalipso) then
         CALL histdef(nid_mth_cosp, "cltcalipso", &
                     "Lidar Total Cloud Fraction", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
         endif
         if (cfg%Lclcalipso) then
         CALL histdef(nid_mth_cosp, "clcalipso", &
                     "Lidar Cloud Fraction (532 nm)", "1", &
                     iim,jj_nb,nhori, Nlevout,1,Nlevout,nvert, 32, &
                     "ave(X)", zout,zstomth)
!         CALL histdef(nid_mth_cosp, "zlev_m", &
!                     "Height at Midel model levels", "m", &
!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
!                     "ave(X)", zout,zstomth)
!         CALL histdef(nid_mth_cosp, "zlev_b", &
!                     "Height at bottom model levels", "m", &
!                     iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
!                     "ave(X)", zout,zstomth)
         endif
           if (cfg%Lcfad_lidarsr532) then
              do ii=1,SR_BINS
               CALL histdef(nid_mth_cosp, "cfad_lidarsr532_"//chcol(ii), &
                           "Lidar Scattering Ratio CFAD (532 nm)","1", &
                           iim,jj_nb,nhori, Nlevout,1,Nlevout,nvert, 32, &
                           "ave(X)", zout,zstomth)   
              enddo
           endif
           if (cfg%Lparasol_refl) then
            CALL histdef(nid_mth_cosp, "parasol_refl", &
                        "PARASOL-like mono-directional reflectance","1", &
                        iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, &
                        "ave(X)", zout,zstomth)   
           endif
           if (cfg%Latb532) then
            do ii=1,Ncolumns
             CALL histdef(nid_mth_cosp, "atb532_"//chcol(ii), &
                         "Lidar Attenuated Total Backscatter (532 nm)","1", &
                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
                         "ave(X)", zout,zstomth)
            enddo
           endif
           if (cfg%Lbeta_mol532) then
            CALL histdef(nid_mth_cosp, "beta_mol532", &
                        "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
                         "ave(X)", zout,zstomth)
           endif
        endif ! Lidar

! Sorties RADAR
!Attention A FAIRE
!        if (cfg%Lradar_sim) then
!         print*,'Ecriture sorties Radar'
!          if (cfg%tttttttttttt) then
!              print*,'Ecriture de cfad_dbze94.nc '
!              A revoir l axe vertical Nlvgrid
!               do ii=1,DBZE_BINS
!                   dbze_ax(ii) = CFAD_ZE_MIN + CFAD_ZE_WIDTH*(ii - 0.5)
!               enddo
!               call write_netcdf4d('cfad_dbze94.nc',use_vgrid,nlon,nlat,Nlevout,DBZE_BINS, &
!                                   x,y,out_levs,dbze_ax,i,ndays,time,stradar%cfad_ze)
!          endif
!          if (cfg%Lclcalipso2) then
!               call write_netcdf3d('clcalipso2.nc',use_vgrid,'clcalipso2', &
!                              nlon,nlat,Nlevout,x,y,out_levs,i,ndays,time,stradar%lidar_only_freq_cloud)
!          endif
!          if (cfg%Ldbze94) then
!             do ii=1,Ncolumns
!                xcol(ii)=float(i)
!             enddo
!             call write_netcdf4d('dbze94.nc',use_vgrid,nlon,nlat,Nlevout,Ncolumns, &
!                                 x,y,out_levs,xcol,i,ndays,time,sgradar%Ze_tot)
!          endif
!          if (cfg%Lcltlidarradar) then
!             call write_netcdf2d('cltlidarradar.nc','cltlidarradar', &
!                                 nlon,nlat,x,y,i,ndays,time,stradar%radar_lidar_tcc)
!          endif
!        endif  ! Radar

! Sorties MISR
!Attention A FAIRE
!        if (cfg%Lmisr_sim) then
!         print*,'Ecriture sorties Misr'
!            call write_netcdf4d('clMISR.nc',use_vgrid,nlon,nlat,MISR_N_CTH,7, &
!                                x,y,MISR_CTH,ISCCP_TAU,i,ndays,time,misr%fq_MISR)
!        endif

! Sorties ISCCP
        if (cfg%Lisccp_sim) then
         if (cfg%Lclisccp2) then
            do ii=1,7
             CALL histdef(nid_mth_cosp, "clisccp2_"//chcol(ii), &
                         "Cloud Fraction as Calculated by the ISCCP Simulator","1", &
                         iim,jj_nb,nhori,7,1,7,nvertisccp, 32, &
                         "ave(X)", zout,zstomth)
            enddo
          endif
          if (cfg%Lboxtauisccp) then
            CALL histdef(nid_mth_cosp, "boxtauisccp", &
                         "Optical Depth in Each Column as Calculated by the ISCCP Simulator","1", &
                         iim,jj_nb,nhori,Ncolumns,1,Ncolumns,nvertcol, 32, &
                         "ave(X)", zout,zstomth)
          endif
          if (cfg%Lboxptopisccp) then
            CALL histdef(nid_mth_cosp, "boxptopisccp", &
                         "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator","Pa", &
                         iim,jj_nb,nhori,Ncolumns,1,Ncolumns,nvertcol, 32, &
                         "ave(X)", zout,zstomth)
          endif
          if (cfg%Ltclisccp) then
           CALL histdef(nid_mth_cosp, "tclisccp", &
                     "Total Cloud Fraction as Calculated by the ISCCP Simulator", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
          endif
          if (cfg%Lctpisccp) then
            CALL histdef(nid_mth_cosp, "ctpisccp", &
                     "Mean Cloud Top Pressure as Calculated by the ISCCP Simulator", "Pa", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
          endif
          if (cfg%Ltauisccp) then
           CALL histdef(nid_mth_cosp, "tauisccp", &
                     "Optical Depth as Calculated by the ISCCP Simulator", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth)
          endif
          if (cfg%Lalbisccp) then
           CALL histdef(nid_mth_cosp, "albisccp", &
                     "Mean Cloud Albedo as Calculated by the ISCCP Simulator", "1", &
                     iim, jj_nb,nhori,1,1,1,-99,32, &
                     "ave(X)", zout,zstomth) 
          endif
          if (cfg%Lmeantbisccp) then
            CALL histdef(nid_mth_cosp, "meantbisccp", &
             " Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator","K", &
             iim, jj_nb,nhori,1,1,1,-99,32, &
             "ave(X)", zout,zstomth)
          endif
          if (cfg%Lmeantbclrisccp) then
           CALL histdef(nid_mth_cosp, "meantbclrisccp", &
            "Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator","K", &
             iim, jj_nb,nhori,1,1,1,-99,32, &
             "ave(X)", zout,zstomth) 
          endif
        endif ! Isccp


        CALL histend(nid_mth_cosp)
!$OMP END MASTER
!$OMP BARRIER