Changeset 472 for trunk/LMDZ.MARS/libf/aeronomars

Timestamp:

Dec 14, 2011, 8:47:53 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

fixed bug in callsedim.F: recomputation of rdust and rice should only be done

if the appropriate tracers and flags are set.

commented out call to uertst in ch.F (uertst crashes with gfortran and is

moreover puerly diagnostic messages).

In nltecool.F: Enforced using igcm_* indexes to identify tracers and not

hard coded fixed numbers (which would lead to a disaster in cases where the
order of tracers was changed).

EM

File:

• trunk/LMDZ.MARS/libf/aeronomars/ch.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/aeronomars/ch.F

@@ -416 +416 @@
   220 dcadre = cadre                                                            
  9000 continue                                                                  
-      if (ier .ne. 0) call uertst (ier,6hdcadre)                                
+!      if (ier .ne. 0) call uertst (ier,6hdcadre)                                
  9005 return                                                                    
       end