Changeset 648 for trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90

Timestamp:

May 4, 2012, 10:24:20 AM (13 years ago)

Author:

emillour

Message:

Mars GCM:

• some syntax corrections in thermcall_main_mars, vdif_cd, pbl_parameters which cause problems when compiling with some strict compilers (g95, gfortran)
• added an initialisation of 'varian' in initracer for cases when using conrath dust; because that value can be is used elsewhere (e.g. surfacearea)

JYC+EM

File:

• trunk/LMDZ.MARS/libf/phymars/thermcell_main_mars.F90 (modified) (1 diff)

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

@@ -1241 +1241 @@
 
       if (1 .eq. 0) then
-      call thermcell_dqup(ngridmx,nlayermx,ptimestep     &
-     &     ,fm,entr,  &
-     &    masse,ztv,zdthladj)
+!      call thermcell_dqup(ngridmx,nlayermx,ptimestep     &
+!     &     ,fm,entr,  &
+!     &    masse,ztv,zdthladj)
       else