Changeset 330 for trunk/LMDZ.MARS/libf/phymars/thermcell_dqupdown.F90

Timestamp:

Oct 25, 2011, 10:10:00 PM (13 years ago)

Author:

aslmd

Message:

MESOSCALE: changes related to g95 support. but the model does not compile apparently. notes taken in NOTES.txt but sorry g95 with LMD_MM_MARS no longer supported at least on 64bits machines. LMDZ.MARS: minor changes related to warning while trying to compile with g95.

File:

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

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

@@ -212 +212 @@
                  if ((q(ig,k) .gt. 0.) .and. ( q(ig,k) .gt. 1.e-15 )) then
                    !! only print if it is the thermal scheme which makes qa<0
-                   print*,'qa<0 created by thermals!!!',charvar,ig,k,fm0(ig,k),qa(ig,k-1),entr0(ig,k),q(ig,k),fm0(ig,k+1),detr0(ig,k)
+                   print*,'qa<0 created by thermals!!!',charvar,ig,k, &
+     &                     fm0(ig,k),qa(ig,k-1),     &
+     &                     entr0(ig,k),q(ig,k),fm0(ig,k+1),detr0(ig,k)
                    print*,'---------> Cancelling qa'
                  endif