Changeset 190 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Jul 4, 2011, 11:04:57 AM (14 years ago)
Author:
acolaitis
Message:

04/07/2011 == AC

  • Minor setting modification to thermals
  • Added new flux optimization in thermcell_main_mars.F90, to run properly

in 3D

Location:
trunk/LMDZ.MARS/libf/phymars
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/calltherm_mars.F90

    r185 r190  
    8787!  ===================
    8888 
    89          r_aspect_thermals=3.
     89         r_aspect_thermals=2.
    9090         nsplit_thermals=40
    9191         call getin("nsplit_thermals",nsplit_thermals)

  • trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

    r185 r190  
    865865
    866866         do ig=1,ngridmx
     867
    867868            if (fm(ig,l+1).lt.0.) then
    868               print*,'fm1<0',l+1,lmax(ig),fm(ig,l+1)
    869                 ncorecfm1=ncorecfm1+1
     869               if((l+1) .eq. lmax(ig)) then
     870               detr(ig,l)=detr(ig,l)+fm(ig,l+1)
     871               fm(ig,l+1)=0.
     872               ncorecfm2=ncorecfm2+1
     873               else
     874          print*,'fm(l+1)<0 : ig, l+1,lmax :',ig,l+1,lmax(ig),fm(ig,l+1)
     875               ncorecfm1=ncorecfm1+1
    870876               fm(ig,l+1)=fm(ig,l)
    871877               detr(ig,l)=entr(ig,l)
    872             endif
     878               endif
     879            endif
     880
    873881         enddo
    874882
Note: See TracChangeset for help on using the changeset viewer.