Changeset 1376 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_write.h

Timestamp:

May 5, 2010, 3:23:18 PM (14 years ago)

Author:

musat

Message:

Output all tracers defined in .def in hist files with dynamic
declaration of LMDZ atmospheric tracers' output levels
Add 6 pseudo-water tracers with and without transport by boundary layer
IM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/phys_output_write.h

@@ -1505 +1505 @@
         ENDIF
 
-!       IF (o_trac%flag(iff)<=lev_files(iff)) THEN
-         if (nqtot.GE.3) THEN
-!           DO iq=3,nqtot
-           DO iq=3,4
+        if (nqtot.GE.3) THEN
+         DO iq=3,nqtot
        IF (o_trac(iq-2)%flag(iff)<=lev_files(iff)) THEN
          CALL histwrite_phy(nid_files(iff),
      s                  o_trac(iq-2)%name,itau_w,qx(:,:,iq))
        ENDIF
-           ENDDO
-         endif
+         ENDDO
+        endif
 
       if (ok_sync) then