Changeset 3377 for trunk


Ignore:
Timestamp:
Jun 13, 2024, 2:52:13 PM (6 months ago)
Author:
afalco
Message:

Pluto PCM:
initialize some variables to 0.
AF

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3374 r3377  
    625625         savedeclin=0.
    626626         saveday=pday
    627          !adjust=0. ! albedo adjustment for convergeps
     627         adjust=0. ! albedo adjustment for convergeps
    628628
    629629!        Initialize soil.
    … …  
    864864      ! Compute local stellar zenith angles
    865865      ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     866      fract = 0
    866867      if (diurnal) then
    867868         ztim1=SIN(declin)

  • trunk/LMDZ.PLUTO/libf/phypluto/suaer_corrk.F90

    r3329 r3377  
    334334
    335335!     1.5 If Francois' data, convert wvl to metres
    336       if(iaer.eq.iaero_haze)then
    337          if(forgetit)then
    338          !   print*,'please sort out forgetit for naerkind>1'
    339             do iwvl=1,nwvl
    340                wvl(iwvl)=wvl(iwvl)*1.e-6
    341             enddo
    342          endif
    343       endif
     336      ! if(iaer.eq.iaero_haze)then
     337      !    if(forgetit)then
     338      !    !   print*,'please sort out forgetit for naerkind>1'
     339      !       do iwvl=1,nwvl
     340      !          wvl(iwvl)=wvl(iwvl)*1.e-6
     341      !       enddo
     342      !    endif
     343      ! endif
    344344
    345345      endif ! of if (is_master)

  • trunk/LMDZ.PLUTO/libf/phypluto/surfprop.F90

    r3361 r3377  
    134134         bb=fdch4_finalb
    135135      endif
     136      emis(:) = 1 !default to 1
    136137
    137138      ! Loop on all points
Note: See TracChangeset for help on using the changeset viewer.