source: LMDZ4/branches/LMDZ4-dev-20091210/libf/cosp/ini_histmthCOSP.h @ 5453

Last change on this file since 5453 was 1262, checked in by idelkadi, 15 years ago

-Rajout des fichiers cosp_input_nl.txt et cosp_output_nl.txt pour controler les parametres entrees sorties COSP
-Rajout du repertoire cosp contenant les sources de COSP
File size: 8.1 KB
Line 
1! Abderrahmane Idelkadi Septebmre 2009
2! Sorties journalieres de COSP
3! Pour l'instant sorties Lidar et ISCCP
4!
5! sorties par jour
6!
7        zstomth = ecrit_mth
8        zout = freq_COSP
9!
10!       PRINT*, 'La frequence de sortie hf3d est de ', ecrit_hf
11!
12
13        idayref = day_ref
14        CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
15
16        CALL histbeg_phy("histmthCOSP",itau_phy,zjulian,dtime,nhori,nid_mth_cosp) 
17
18! Definition de l'axe vertical
19        CALL histvert(nid_mth_cosp,"height","height","m",Nlevout,vgrid%z,nvert)
20        CALL histvert(nid_mth_cosp,"height_mlev","height_mlev","m",Nlevlmdz,vgrid%mz,nvertm)
21!        CALL histvert(nid_mth_cosp,"presnivs","Vertical levels","mb",Nlevout,presnivs,nvert)
22
23        CALL histvert(nid_mth_cosp,"sza","solar_zenith_angle","degrees",PARASOL_NREFL,PARASOL_SZA,nvertp)
24
25        CALL histvert(nid_mth_cosp,"pressure2","pressure","mb",7,ISCCP_PC,nvertisccp)
26
27        CALL histvert(nid_mth_cosp,"column","column","count",Ncolumns,column_ax,nvertcol)
28
29! Sorties LIDAR
30       if (cfg%Llidar_sim) then
31         if (cfg%Lcllcalipso) then
32         CALL histdef(nid_mth_cosp, "cllcalipso", &
33                     "Lidar Low-level Cloud Fraction", "1", &
34                     iim, jj_nb,nhori,1,1,1,-99,32, &
35                     "ave(X)", zout,zstomth)
36         endif
37         if (cfg%Lclhcalipso) then
38         CALL histdef(nid_mth_cosp, "clhcalipso", &
39                     "Lidar High-level Cloud Fraction", "1", &
40                     iim, jj_nb,nhori,1,1,1,-99,32, &
41                     "ave(X)", zout,zstomth)
42         endif
43         if (cfg%Lclmcalipso) then
44         CALL histdef(nid_mth_cosp, "clmcalipso", &
45                     "Lidar Mid-level Cloud Fraction", "1", &
46                     iim, jj_nb,nhori,1,1,1,-99,32, &
47                     "ave(X)", zout,zstomth)
48         endif
49         if (cfg%Lcltcalipso) then
50         CALL histdef(nid_mth_cosp, "cltcalipso", &
51                     "Lidar Total Cloud Fraction", "1", &
52                     iim, jj_nb,nhori,1,1,1,-99,32, &
53                     "ave(X)", zout,zstomth)
54         endif
55         if (cfg%Lclcalipso) then
56         CALL histdef(nid_mth_cosp, "clcalipso", &
57                     "Lidar Cloud Fraction (532 nm)", "1", &
58                     iim,jj_nb,nhori, Nlevout,1,Nlevout,nvert, 32, &
59                     "ave(X)", zout,zstomth)
60         endif
61           if (cfg%Lcfad_lidarsr532) then
62              do ii=1,SR_BINS
63               CALL histdef(nid_mth_cosp, "cfad_lidarsr532_"//chcol(ii), &
64                           "Lidar Scattering Ratio CFAD (532 nm)","1", &
65                           iim,jj_nb,nhori, Nlevout,1,Nlevout,nvert, 32, &
66                           "ave(X)", zout,zstomth)   
67              enddo
68           endif
69           if (cfg%Lparasol_refl) then
70            CALL histdef(nid_mth_cosp, "parasol_refl", &
71                        "PARASOL-like mono-directional reflectance","1", &
72                        iim,jj_nb,nhori, PARASOL_NREFL,1, PARASOL_NREFL, nvertp,32, &
73                        "ave(X)", zout,zstomth)   
74           endif
75           if (cfg%Latb532) then
76            do ii=1,Ncolumns
77             CALL histdef(nid_mth_cosp, "atb532_"//chcol(ii), &
78                         "Lidar Attenuated Total Backscatter (532 nm)","1", &
79                         iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
80                         "ave(X)", zout,zstomth)
81            enddo
82           endif
83           if (cfg%Lbeta_mol532) then
84            CALL histdef(nid_mth_cosp, "beta_mol532", &
85                        "Lidar Molecular Backscatter (532 nm)","m-1 sr-1", &
86                        iim,jj_nb,nhori, Nlevlmdz,1,Nlevlmdz,nvertm, 32, &
87                         "ave(X)", zout,zstomth)
88           endif
89        endif ! Lidar
90
91! Sorties RADAR
92!Attention A FAIRE
93!        if (cfg%Lradar_sim) then
94!         print*,'Ecriture sorties Radar'
95!          if (cfg%tttttttttttt) then
96!              print*,'Ecriture de cfad_dbze94.nc '
97!              A revoir l axe vertical Nlvgrid
98!               do ii=1,DBZE_BINS
99!                   dbze_ax(ii) = CFAD_ZE_MIN + CFAD_ZE_WIDTH*(ii - 0.5)
100!               enddo
101!               call write_netcdf4d('cfad_dbze94.nc',use_vgrid,nlon,nlat,Nlevout,DBZE_BINS, &
102!                                   x,y,out_levs,dbze_ax,i,ndays,time,stradar%cfad_ze)
103!          endif
104!          if (cfg%Lclcalipso2) then
105!               call write_netcdf3d('clcalipso2.nc',use_vgrid,'clcalipso2', &
106!                              nlon,nlat,Nlevout,x,y,out_levs,i,ndays,time,stradar%lidar_only_freq_cloud)
107!          endif
108!          if (cfg%Ldbze94) then
109!             do ii=1,Ncolumns
110!                xcol(ii)=float(i)
111!             enddo
112!             call write_netcdf4d('dbze94.nc',use_vgrid,nlon,nlat,Nlevout,Ncolumns, &
113!                                 x,y,out_levs,xcol,i,ndays,time,sgradar%Ze_tot)
114!          endif
115!          if (cfg%Lcltlidarradar) then
116!             call write_netcdf2d('cltlidarradar.nc','cltlidarradar', &
117!                                 nlon,nlat,x,y,i,ndays,time,stradar%radar_lidar_tcc)
118!          endif
119!        endif  ! Radar
120
121! Sorties MISR
122!Attention A FAIRE
123!        if (cfg%Lmisr_sim) then
124!         print*,'Ecriture sorties Misr'
125!            call write_netcdf4d('clMISR.nc',use_vgrid,nlon,nlat,MISR_N_CTH,7, &
126!                                x,y,MISR_CTH,ISCCP_TAU,i,ndays,time,misr%fq_MISR)
127!        endif
128
129! Sorties ISCCP
130        if (cfg%Lisccp_sim) then
131         if (cfg%Lclisccp2) then
132            do ii=1,7
133             CALL histdef(nid_mth_cosp, "clisccp2_"//chcol(ii), &
134                         "Cloud Fraction as Calculated by the ISCCP Simulator","1", &
135                         iim,jj_nb,nhori,7,1,7,nvertisccp, 32, &
136                         "ave(X)", zout,zstomth)
137            enddo
138          endif
139          if (cfg%Lboxtauisccp) then
140            CALL histdef(nid_mth_cosp, "boxtauisccp", &
141                         "Optical Depth in Each Column as Calculated by the ISCCP Simulator","1", &
142                         iim,jj_nb,nhori,Ncolumns,1,Ncolumns,nvertcol, 32, &
143                         "ave(X)", zout,zstomth)
144          endif
145          if (cfg%Lboxptopisccp) then
146            CALL histdef(nid_mth_cosp, "boxptopisccp", &
147                         "Cloud Top Pressure in Each Column as Calculated by the ISCCP Simulator","Pa", &
148                         iim,jj_nb,nhori,Ncolumns,1,Ncolumns,nvertcol, 32, &
149                         "ave(X)", zout,zstomth)
150          endif
151          if (cfg%Ltclisccp) then
152           CALL histdef(nid_mth_cosp, "tclisccp", &
153                     "Total Cloud Fraction as Calculated by the ISCCP Simulator", "1", &
154                     iim, jj_nb,nhori,1,1,1,-99,32, &
155                     "ave(X)", zout,zstomth)
156          endif
157          if (cfg%Lctpisccp) then
158            CALL histdef(nid_mth_cosp, "ctpisccp", &
159                     "Mean Cloud Top Pressure as Calculated by the ISCCP Simulator", "Pa", &
160                     iim, jj_nb,nhori,1,1,1,-99,32, &
161                     "ave(X)", zout,zstomth)
162          endif
163          if (cfg%Ltauisccp) then
164           CALL histdef(nid_mth_cosp, "tauisccp", &
165                     "Optical Depth as Calculated by the ISCCP Simulator", "1", &
166                     iim, jj_nb,nhori,1,1,1,-99,32, &
167                     "ave(X)", zout,zstomth)
168          endif
169          if (cfg%Lalbisccp) then
170           CALL histdef(nid_mth_cosp, "albisccp", &
171                     "Mean Cloud Albedo as Calculated by the ISCCP Simulator", "1", &
172                     iim, jj_nb,nhori,1,1,1,-99,32, &
173                     "ave(X)", zout,zstomth) 
174          endif
175          if (cfg%Lmeantbisccp) then
176            CALL histdef(nid_mth_cosp, "meantbisccp", &
177             " Mean all-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator","K", &
178             iim, jj_nb,nhori,1,1,1,-99,32, &
179             "ave(X)", zout,zstomth)
180          endif
181          if (cfg%Lmeantbclrisccp) then
182           CALL histdef(nid_mth_cosp, "meantbclrisccp", &
183            "Mean clear-sky 10.5 micron brightness temperature as calculated by the ISCCP Simulator","K", &
184             iim, jj_nb,nhori,1,1,1,-99,32, &
185             "ave(X)", zout,zstomth) 
186          endif
187        endif ! Isccp
188
189
190        CALL histend(nid_mth_cosp)
Note: See TracBrowser for help on using the repository browser.