Changeset 752 for IOIPSL/trunk/src
- Timestamp:
- 10/06/09 15:20:26 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r740 r752 76 76 & nb_hax_max=5,nb_zax_max=10,nbopp_max=10 77 77 REAL,PARAMETER :: missing_val=nf90_fill_real 78 INTEGER,PARAMETER,PUBLIC :: & 79 & hist_r4=nf90_real4, hist_r8=nf90_real8 78 80 !- 79 81 INTEGER :: bufftmp_max(nb_files_max) = 1 … … 116 118 ! Informations on each variable 117 119 !- 118 INTEGER,DIMENSION(nb_files_max,nb_var_max),SAVE :: & 119 & nbopp 120 INTEGER,DIMENSION(nb_files_max,nb_var_max),SAVE :: v_typ 120 121 CHARACTER(LEN=20),DIMENSION(nb_files_max,nb_var_max),SAVE :: & 121 122 & name,unit_name … … 142 143 & freq_opp,freq_wrt 143 144 INTEGER,DIMENSION(nb_files_max,nb_var_max),SAVE :: & 144 & last_opp,last_wrt,last_opp_chk,last_wrt_chk,nb_opp,nb_wrt,point145 & nbopp,last_opp,last_wrt,last_opp_chk,last_wrt_chk,nb_opp,nb_wrt,point 145 146 !- 146 147 ! Book keeping for the buffers … … 1104 1105 !- pzid : ID of the vertical axis to use. It has to have 1105 1106 !- the size of the zoom. 1106 !- pnbbyt : Number of bytes on which to store in netCDF (Not opp.)1107 !- pnbbyt : External netCDF type (hist_r4/hist_r8) 1107 1108 !- popp : Operation to be performed. The following options 1108 1109 !- exist today : … … 1197 1198 sopps(pfileid,iv,nbopp(pfileid,iv)) = 'ident' 1198 1199 scal(pfileid,iv,nbopp(pfileid,iv)) = missing_val 1200 ENDIF 1201 !- 1202 ! 1.3 External type of the variable 1203 !- 1204 IF (pnbbyt == hist_r8) THEN 1205 v_typ(pfileid,iv) = hist_r8 1206 ELSE 1207 v_typ(pfileid,iv) = hist_r4 1199 1208 ENDIF 1200 1209 !- … … 1613 1622 ENDIF 1614 1623 !- 1615 iret = NF90_DEF_VAR (ncid,TRIM(name(pfileid,iv)), NF90_FLOAT,&1616 & dims(1:ABS(ndim)),ncvarid)1624 iret = NF90_DEF_VAR (ncid,TRIM(name(pfileid,iv)), & 1625 & v_typ(pfileid,iv),dims(1:ABS(ndim)),ncvarid) 1617 1626 !- 1618 1627 ncvar_ids(pfileid,iv) = ncvarid
Note: See TracChangeset
for help on using the changeset viewer.