Changeset 1042
- Timestamp:
- Oct 31, 2008, 2:49:42 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/guide.F
r1040 r1042 113 113 save step_rea,count_no_rea 114 114 115 #define gradsfile 116 #undef gradsfile 117 118 #ifdef gradsfile 115 119 character*10 file 116 120 integer igrads … … 118 122 save igrads,dtgrads 119 123 data igrads,dtgrads/2,100./ 120 124 #endif 121 125 C----------------------------------------------------------------------- 122 126 c calcul de l'humidite saturante … … 155 159 print*,'apres conf_guide' 156 160 161 162 #ifdef gradsfile 157 163 file='guide' 158 164 call inigrads(igrads,iip1 … … 160 166 s ,llm,presnivs,1. 161 167 s ,dtgrads,file,'dyn_zon ') 168 #endif 162 169 163 170 print* … … 279 286 factt=dtvr*iperiod/daysec 280 287 ztau(:)=factt/max(alpha_T(:),1.e-10) 288 #ifdef gradsfile 281 289 call wrgrads(igrads,1,aire ,'aire ','aire ' ) 282 290 call wrgrads(igrads,1,dxdys ,'dxdy ','dxdy ' ) … … 292 300 293 301 call wrgrads(igrads,llm,qsat,'QSAT ','QSAT ' ) 294 302 #endif 295 303 endif 296 304 else
Note: See TracChangeset
for help on using the changeset viewer.