Changeset 2054 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Dec 19, 2018, 12:22:51 PM (6 years ago)
Author:
jvatant
Message:

Minor correct a lacking condition
--JVO

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/sugas_corrk.F90

    r2050 r2054  
    699699         end do
    700700      end do
    701 
    702       gasi_recomb(:,:,:,:) = kappa_IR ! non-zero init
    703       gasv_recomb(:,:,:,:) = kappa_VI ! non-zero init
     701     
     702      if (corrk_recombin) then
     703        gasi_recomb(:,:,:,:) = kappa_IR ! non-zero init
     704        gasv_recomb(:,:,:,:) = kappa_VI ! non-zero init
     705      endif
    704706
    705707!=======================================================================
Note: See TracChangeset for help on using the changeset viewer.