Changeset 3806 for LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90

Timestamp:

Jan 20, 2021, 6:36:39 PM (3 years ago)

Author:

asima

Message:

SPLA code cleaning :
concerns the updating from LMDZ5 to LMDZ6 (rev 3786),
and other obsolete lines and fragments, like everything related to "ok_histrac" flag
(which sent SPLA output in a "histrac.nc" file using IOIPSL; in 2014 J Escribano included SPLA output in the usual LMDZ hist* files.)

File:

• LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/Dust/dustemission_mod.F90

@@ -636 +636 @@
     ALLOCATE( srel(nats,nclass) )
     ALLOCATE( srel2(nats,nclass) )
-    !!AS: moved to subroutine dustemission_output_init
-    !ALLOCATE( m1dflux(klon) )
-    !ALLOCATE( m2dflux(klon) )
-    !ALLOCATE( m3dflux(klon) )
 
 
@@ -684 +680 @@
       !&      .and.pctsrf(i)>0.5.and.Pini(i,nts)>0.)THEN
   ! JE20150605<< easier to read
-  !    IF(pctsrf(i)>0.5.and.Pini(i,nts)>0.)THEN
       IF(pctsrf(i,is_ter)>0.5.and.Pini(i,nts)>0.)THEN
   ! JE20150605>>
@@ -1275 +1270 @@
                       modwm=sqrt((wind10ms(kwb)**2)+(1.2*zwstar(i))**2)
                       ustarns=cdnms*modwm*100.
-!JE20150202 <<
-! Do not have too much sense.. and is not anymore in the chimere14b version.
-!
-!                      utmin=umin/(cdnms*ceff)
-!                   IF(wind10cm(kwb).ge.utmin)THEN
-!                      ustarsalt=ustarns+  &
-!                    (0.3*(wind10cm(kwb)/100.-utmin/100.)**2.)
-!                   ELSE
-!                      ustarsalt=ustarns
-!                   ENDIF
-! ustarsalt should be :
                     ustarsalt=ustarns
-!JE20150202 >>