Changeset 105 for trunk/libf/phytitan/write_histmth.h

Timestamp:

Mar 28, 2011, 11:39:43 AM (14 years ago)

Author:

slebonnois

Message:

SL: dernieres corrections pour que la compilation de Titan se fasse.

File:

• trunk/libf/phytitan/write_histmth.h (modified) (1 diff)

trunk/libf/phytitan/write_histmth.h

@@ -83 +83 @@
 c
          if (iflag_trac.eq.1) THEN
-          if (microfi.eq.1) then
+c         if (microfi.eq.1) then
 c          DO iq=1,nmicro
 c      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qaer(1,1,iq), zx_tmp_3d)