- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/phylmd/Dust/dustemission_mod.F90
r2630 r3851 153 153 !====================================================================================== 154 154 !-------------------------------------------------------------------------------------- 155 156 SUBROUTINE dustemis_out_init() 157 158 USE dimphy 159 160 !AS: moved here from subroutine initdust 161 ALLOCATE( m1dflux(klon) ) 162 ALLOCATE( m2dflux(klon) ) 163 ALLOCATE( m3dflux(klon) ) 164 165 END SUBROUTINE dustemis_out_init 155 166 156 167 SUBROUTINE dustemission( debutphy, xlat, xlon, & !Input … … 625 636 ALLOCATE( srel(nats,nclass) ) 626 637 ALLOCATE( srel2(nats,nclass) ) 627 ALLOCATE( m1dflux(klon) )628 ALLOCATE( m2dflux(klon) )629 ALLOCATE( m3dflux(klon) )630 638 631 639 … … 672 680 !& .and.pctsrf(i)>0.5.and.Pini(i,nts)>0.)THEN 673 681 ! JE20150605<< easier to read 674 ! IF(pctsrf(i)>0.5.and.Pini(i,nts)>0.)THEN675 682 IF(pctsrf(i,is_ter)>0.5.and.Pini(i,nts)>0.)THEN 676 683 ! JE20150605>> … … 1263 1270 modwm=sqrt((wind10ms(kwb)**2)+(1.2*zwstar(i))**2) 1264 1271 ustarns=cdnms*modwm*100. 1265 !JE20150202 <<1266 ! Do not have too much sense.. and is not anymore in the chimere14b version.1267 !1268 ! utmin=umin/(cdnms*ceff)1269 ! IF(wind10cm(kwb).ge.utmin)THEN1270 ! ustarsalt=ustarns+ &1271 ! (0.3*(wind10cm(kwb)/100.-utmin/100.)**2.)1272 ! ELSE1273 ! ustarsalt=ustarns1274 ! ENDIF1275 ! ustarsalt should be :1276 1272 ustarsalt=ustarns 1277 !JE20150202 >>1278 1273 1279 1274
Note: See TracChangeset
for help on using the changeset viewer.