Changeset 486 for trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90

Timestamp:

Dec 21, 2011, 10:09:07 AM (13 years ago)

Author:

rwordsworth

Message:

Variable ice timestep added for ice evolution algorithm.
Sedimentation improved to allow consistent dust (L. Kerber).
Bug linked to allocatable matrices removed from rcm1d.F.
Treatment of initial aerosol radii in callcorrk.F90 improved.

File:

• trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90 (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/condense_cloud.F90

@@ -187 +187 @@
          enddo
 
-        write(*,*) "condense_co2cloud: i_co2ice=",i_co2ice       
+        write(*,*) "condense_cloud: i_co2ice=",i_co2ice       
 
         if((i_co2ice.lt.1))then
-           print*,'In condens_co2cloud but no CO2 ice tracer, exiting.'
+           print*,'In condens_cloud but no CO2 ice tracer, exiting.'
+           print*,'Still need generalisation to arbitrary species!'
            stop
         endif
 
          ccond=cpp/(g*latcond)
-         print*,'In condens_co2cloud: ccond=',ccond,' latcond=',latcond
+         print*,'In condens_cloud: ccond=',ccond,' latcond=',latcond
 
 !          Prepare special treatment if gas is not pure CO2