Changeset 513

Timestamp:

Feb 3, 2012, 12:26:36 PM (13 years ago)

Author:

acolaitis

Message:

Thermals. Removed a setting that wreaked havoc on normal GCM resolution simulations. Thermals are still set to high resolution parameters but dont predict silly things on normal resolution.

File:

• trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90 (modified) (2 diffs)

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

@@ -412 +412 @@
 !        do l=2,4
          do ig=1,ngridmx
-           if (ztv(ig,l)>(ztv(ig,l+1)+0.) .and. ztv(ig,1)>=ztv(ig,l) .and. (alim_star(ig,l-1) .ne. 0.) .and. (zlev(ig,l+1) .lt. 1000.)) then
+           if (ztv(ig,l)>(ztv(ig,l+1)+0.) .and. ztv(ig,1)>=ztv(ig,l) .and. (alim_star(ig,l-1) .ne. 0.)) then ! .and. (zlev(ig,l+1) .lt. 1000.)) then
                alim_star(ig,l)=MAX((ztv(ig,l)-ztv(ig,l+1)),0.)  &
      &                       *sqrt(zlev(ig,l+1))
@@ -598 +598 @@
 !---------------------------------------------------------------------------
 
-      DO tic=0,0  ! internal convergence loop
+      DO tic=0,5  ! internal convergence loop
       activetmp(:)=activecell(:) .and. f_star(:,l+1)>1.e-10
       do ig=1,ngridmx