Changeset 648 for trunk/LMDZ.MARS/libf/phymars/vdif_cd.F

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/vdif_cd.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/vdif_cd.F

@@ -150 +150 @@
 !         zu2(ig)=MAX(pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1),             &
 !     &      (0.3*wstar(ig))**2)
-          zu2(ig)=pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1) +
+          zu2(ig)=pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1) 
      &     + (log(1.+0.7*wstar(ig) + 2.3*wstar(ig)**2))**2