Changeset 1405 for LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_write.h

Timestamp:

Jul 1, 2010, 3:16:29 PM (14 years ago)

Author:

jghattas

Message:

• Added tracer "Age of stratospheric air", activated by putting Aga in tracer.def.
• The logical rnpb is now controled during execution. rnpb is true only if both tracers RN and PB existe in tracer.def. RN and PB can now be removed from tracer.def
• Modification in output. It is now possible to have 3 tracers. But still only tracer number 3 and tracer number 4(if existing) will be written.

F Lott, JG

File:

• LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ4/branches/LMDZ4_AR5/libf/phylmd/phys_output_write.h

@@ -1509 +1509 @@
         ENDIF
 
-!       IF (o_trac%flag(iff)<=lev_files(iff)) THEN
-         if (nqtot.GE.3) THEN
-!           DO iq=3,nqtot
-           DO iq=3,4
-       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
+
+        IF (nqtot.GE.3 .AND. o_trac(1)%flag(iff)<=lev_files(iff)) THEN
+           CALL histwrite_phy(nid_files(iff),
+     s          o_trac(1)%name,itau_w,qx(:,:,3))
+        ENDIF
+
+        IF (nqtot.GE.4 .AND. o_trac(2)%flag(iff)<=lev_files(iff)) THEN
+           CALL histwrite_phy(nid_files(iff),
+     s          o_trac(2)%name,itau_w,qx(:,:,4))
+        ENDIF
+
+
 
       if (ok_sync) then