My Project
 All Classes Files Functions Variables Macros
Functions/Subroutines | Variables
ini_histmthCOSP.h File Reference

Go to the source code of this file.

Functions/Subroutines

!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz 		if (use_vgrid) then CALL histvert(nid_mth_cosp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL 		histvert (nid_mth_cosp,"presnivs","Vertical levels","Pa", Nlevout, presnivs, nvert,"down") endif CALL histvert(nid_mth_cosp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 		histvert (nid_mth_cosp,"sza","solar_zenith_angle","degrees", PARASOL_NREFL, PARASOL_SZA, nvertp) CALL histvert(nid_mth_cosp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 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
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud & 		ave (X)"
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif 		if (cfg%Lclhcalipso) then CALL histdef(nid_mth_cosp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud 		Fraction (532 nm)"
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
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
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL 		histdef (nid_mth_cosp,"cfad_lidarsr532_""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
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL 		histdef (nid_mth_cosp,"atb532_""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
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular 		Backscatter (532 nm)"
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE 		!if (cfg%Lradar_sim) then!print *
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS 		!dbze_ax (ii)
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns 		!xcol (ii)
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
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
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL 		histdef (nid_mth_cosp,"clisccp2_""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

Variables

!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER 		zstomth
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est 		de
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf 		!idayref
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf 		height_mlev = '
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz 		height
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz 		m
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz 		Nlevout
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid 		z
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL 		Nlevlmdz
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid 		mz
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 		pressure2
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 		pressure
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 		mb
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL 		ISCCP_PC
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL 		cllcalipso
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud 		Fraction
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud & 		iim
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud 		jj_nb
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud 		nhori
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud 		zout
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif 		clhcalipso
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif 		clmcalipso
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif 		cltcalipso
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif 		clcalipso
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud 		nvert
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL 		zlev_b
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model 		levels
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model & 		!iim
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model 		nvertm
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL 		parasol_refl
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional 		reflectance
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional 		PARASOL_NREFL
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional 		nvertp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL 		beta_mol532
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m 		sr
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do 		ii = 1
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL 		boxtauisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP 		Simulator
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP 		Ncolumns
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP 		nvertcol
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif 		boxptopisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP 		Pa
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif 		tclisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif 		ctpisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif &Mean
Cloud Top Pressure as
Calculated by the ISCCP
zstomth endif 		tauisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif &Mean
Cloud Top Pressure as
Calculated by the ISCCP
zstomth endif &Optical Depth
as Calculated by the ISCCP
zstomth endif 		albisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif &Mean
Cloud Top Pressure as
Calculated by the ISCCP
zstomth endif &Optical Depth
as Calculated by the ISCCP
zstomth endif &Mean Cloud
Albedo as Calculated by the
ISCCP zstomth endif 		meantbisccp
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif &Mean
Cloud Top Pressure as
Calculated by the ISCCP
zstomth endif &Optical Depth
as Calculated by the ISCCP
zstomth endif &Mean Cloud
Albedo as Calculated by the
ISCCP zstomth endif &Mean all
sky micron brightness
temperature as calculated by
the ISCCP 		K
!Abderrahmane Idelkadi
Septebmre!Sorties journalieres
de COSP!Pour l instant sorties
Lidar et ISCCP!sorties par
jour!$OMP MASTER La frequence
de sortie hf3d est ecrit_hf
vgrid mz vgrid nvert else CALL
vgrid nvertm CALL nvertisccp
CALL &Lidar Low level Cloud
zstomth endif &Lidar High
level Cloud zstomth endif
&Lidar Mid level Cloud zstomth
endif &Lidar Total Cloud
zstomth endif &Lidar Cloud
zstomth!CALL &Height at bottom
model zstomth endif SR_BINS
CALL &PARASOL like mono
directional zstomth endif
Ncolumns CALL &Lidar Molecular
m zstomth endif
endif!Lidar!Sorties
RADAR!Attention A FAIRE
Ecriture sorties Radar
Ecriture de cfad_dbze94 nc!A
revoir l axe vertical
Nlvgrid!do DBZE_BINS Ncolumns
Ecriture sorties Misr!call
CALL &Optical Depth in Each
Column as Calculated by the
ISCCP zstomth endif &Cloud Top
Pressure in Each Column as
Calculated by the ISCCP
zstomth endif &Total Cloud
Fraction as Calculated by the
ISCCP zstomth endif &Mean
Cloud Top Pressure as
Calculated by the ISCCP
zstomth endif &Optical Depth
as Calculated by the ISCCP
zstomth endif &Mean Cloud
Albedo as Calculated by the
ISCCP zstomth endif &Mean all
sky micron brightness
temperature as calculated by
the ISCCP zstomth endif 		meantbclrisccp

Function/Subroutine Documentation

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS !dbze_ax ( ii  )
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE !if ( cfg%  Lradar_sim)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns !xcol ( ii  )
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud & ave ( X  )
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular Backscatter ( 532  nm)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud Fraction ( 532  nm)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud 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   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL histdef ( nid_mth_cosp  ,
"cfad_lidarsr532_""Lidar Scattering Ratio CFAD (532 nm)"  ,
"1"  ,
&  iim,
jj_nb  ,
nhori  ,
Nlevout  ,
1  ,
Nlevout  ,
nvert  ,
32  ,
&"ave(X)"  ,
zout  ,
zstomth   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL histdef ( nid_mth_cosp  ,
"atb532_""Lidar Attenuated Total Backscatter (532 nm)"  ,
"1"  ,
&  iim,
jj_nb  ,
nhori  ,
Nlevlmdz  ,
1  ,
Nlevlmdz  ,
nvertm  ,
32  ,
&"ave(X)"  ,
zout  ,
zstomth   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL histdef ( nid_mth_cosp  ,
"clisccp2_""Cloud Fraction as Calculated by the ISCCP Simulator"  ,
"1"  ,
&  iim,
jj_nb  ,
nhori  ,
7  ,
1  ,
7  ,
nvertisccp  ,
32  ,
&"ave(X)"  ,
zout  ,
zstomth   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL histvert ( nid_mth_cosp  ,
"presnivs"  ,
"Vertical levels"  ,
"Pa"  ,
Nlevout  ,
presnivs  ,
nvert  ,
"down"   
)

Here is the caller graph for this function:

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL histvert ( nid_mth_cosp  ,
"sza"  ,
"solar_zenith_angle"  ,
"degrees"  ,
PARASOL_NREFL  ,
PARASOL_SZA  ,
nvertp   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL histvert ( nid_mth_cosp  ,
"column"  ,
"column"  ,
"count"  ,
Ncolumns  ,
column_ax(1:Ncolumns)  ,
nvertcol   
)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz if ( use_vgrid  )
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif if ( cfg%  Lclhcalipso)
! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns 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 
)

Variable Documentation

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf !idayref
Initial value:
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*

Definition at line 14 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model & !iim

Definition at line 68 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif albisccp

Definition at line 182 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL beta_mol532

Definition at line 96 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif boxptopisccp

Definition at line 158 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL boxtauisccp

Definition at line 152 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif clcalipso

Definition at line 60 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif clhcalipso

Definition at line 42 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL cllcalipso

Definition at line 36 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif clmcalipso

Definition at line 48 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif cltcalipso

Definition at line 54 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif ctpisccp

Definition at line 170 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est de

Definition at line 8 of file ini_histmthCOSP.h.

!Abderrahmane Idelkadi Septebmre!Sorties journalieres de COSP!Pour l instant sorties Lidar et ISCCP!sorties par jour!$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL &Lidar Low level Cloud zstomth endif &Lidar High level Cloud zstomth endif &Lidar Mid level Cloud zstomth endif &Lidar Total Cloud Fraction

Definition at line 36 of file ini_histmthCOSP.h.

!Abderrahmane Idelkadi Septebmre!Sorties journalieres de COSP!Pour l instant sorties Lidar et ISCCP!sorties par jour!$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz height

Definition at line 21 of file ini_histmthCOSP.h.

!Abderrahmane Idelkadi Septebmre!Sorties journalieres de COSP!Pour l instant sorties Lidar et ISCCP!sorties par jour!$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL height_mlev = '

Definition at line 19 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do ii = 1

Definition at line 110 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP & iim

Definition at line 36 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL ISCCP_PC

Definition at line 29 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP jj_nb

Definition at line 36 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP K

Definition at line 188 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model levels

Definition at line 68 of file ini_histmthCOSP.h.

!Abderrahmane Idelkadi Septebmre!Sorties journalieres de COSP!Pour l instant sorties Lidar et ISCCP!sorties par jour!$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL &Lidar Low level Cloud zstomth endif &Lidar High level Cloud zstomth endif &Lidar Mid level Cloud zstomth endif &Lidar Total Cloud zstomth endif &Lidar Cloud zstomth!CALL &Height at bottom model m

Definition at line 21 of file ini_histmthCOSP.h.

!$Id il faut mettre la meme valeur pour c zout et zsto c dtime est passe par ailleurs a histbeg c napisccp napisccp ISCCP ncolmx c PRINT n La frequence de sortie ISCCP est ecrit_isccp c zjulian c c c definition coordonnees lat en globale c cym CALL iim cym iim cym jjmp1 cym On stoke le fichier histISCCP s jmax_ins cym print On stoke le fichier histISCCP instantanne cym s cym s cym cym nid_isccp CALL cym cym imax_ins cym jmax_ins cym cym nid_isccp CALL Cloud Top down ELSE Cloud Top mb

Definition at line 29 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif meantbclrisccp

Definition at line 194 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif meantbisccp

Definition at line 188 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid mz

Definition at line 25 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP Ncolumns

Definition at line 152 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP nhori

Definition at line 36 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m Nlevlmdz

Definition at line 25 of file ini_histmthCOSP.h.

!Abderrahmane Idelkadi Septebmre!Sorties journalieres de COSP!Pour l instant sorties Lidar et ISCCP!sorties par jour!$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL &Lidar Low level Cloud zstomth endif &Lidar High level Cloud zstomth endif &Lidar Mid level Cloud zstomth endif &Lidar Total Cloud zstomth endif &Lidar Cloud Nlevout

Definition at line 21 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud nvert

Definition at line 61 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP nvertcol

Definition at line 152 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m nvertm

Definition at line 68 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional nvertp

Definition at line 82 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP Pa

Definition at line 158 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional PARASOL_NREFL

Definition at line 82 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL parasol_refl

Definition at line 82 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL pressure

Definition at line 29 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL pressure2

Definition at line 29 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional reflectance

Definition at line 82 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP Simulator

Definition at line 152 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m sr

Definition at line 97 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif tauisccp

Definition at line 176 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif tclisccp

Definition at line 164 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid z

Definition at line 21 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL zlev_b

Definition at line 68 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER La frequence de sortie hf3d est ecrit_hf vgrid mz vgrid nvert else CALL vgrid nvertm CALL nvertisccp CALL & Lidar Low level Cloud zstomth endif & Lidar High level Cloud zstomth endif & Lidar Mid level Cloud zstomth endif & Lidar Total Cloud zstomth endif & Lidar Cloud zstomth ! CALL & Height at bottom model zstomth endif SR_BINS CALL & PARASOL like mono directional zstomth endif Ncolumns CALL & Lidar Molecular m zstomth endif endif ! Lidar ! Sorties RADAR !Attention A FAIRE Ecriture sorties Radar Ecriture de cfad_dbze94 nc ! A revoir l axe vertical Nlvgrid ! do DBZE_BINS Ncolumns Ecriture sorties Misr ! call CALL & Optical Depth in Each Column as Calculated by the ISCCP zstomth endif & Cloud Top Pressure in Each Column as Calculated by the ISCCP zstomth endif & Total Cloud Fraction as Calculated by the ISCCP zstomth endif & Mean Cloud Top Pressure as Calculated by the ISCCP zstomth endif & Optical Depth as Calculated by the ISCCP zstomth endif & Mean Cloud Albedo as Calculated by the ISCCP zstomth endif & Mean all sky micron brightness temperature as calculated by the ISCCP zstomth endif & Mean clear sky micron brightness temperature as calculated by the ISCCP zout

Definition at line 39 of file ini_histmthCOSP.h.

! Abderrahmane Idelkadi Septebmre ! Sorties journalieres de COSP ! Pour l instant sorties Lidar et ISCCP ! sorties par jour !$OMP MASTER zstomth
Initial value:
ecrit_mth
zout = freq_COSP
!
! PRINT*

Definition at line 8 of file ini_histmthCOSP.h.