Changeset 2780 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Jan 26, 2017, 9:58:14 PM (7 years ago)

Author:

oboucher

Message:

Adding write of two variables toplwai and sollwai

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (8 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -115 +115 @@
          o_swsrfcs_nat, o_swsrfcf_ant, &
          o_swtoacf_zero, o_swsrfcf_zero, &
-         o_topswai, o_solswai, o_scdnc, &
+         o_topswai, o_solswai, o_toplwai, o_sollwai, o_scdnc, &
          o_cldncl, o_reffclws, o_reffclwc, o_stratomask,&
          o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
@@ -479 +479 @@
     ! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage:
     DO iinit=1, iinitend
+!      print *,'IFF iinit=', iinit, iinitend 
 #ifdef CPP_XIOS
        !$OMP MASTER
@@ -1284 +1285 @@
        IF (ok_aie) THEN
           CALL histwrite_phy(o_topswai, topswai_aero*swradcorr)
+          CALL histwrite_phy(o_toplwai, toplwai_aero*swradcorr)
           CALL histwrite_phy(o_solswai, solswai_aero*swradcorr)
+          CALL histwrite_phy(o_sollwai, sollwai_aero*swradcorr)
        ENDIF
        IF (flag_aerosol.GT.0.AND.ok_cdnc) THEN
@@ -1915 +1918 @@
 #ifndef CPP_IOIPSL_NO_OUTPUT 
           DO iff=1,nfiles
+             PRINT *,'IFF=', iff
              IF (clef_files(iff)) THEN
+                PRINT *,'IFF=', iff, clef_files(iff)
                 CALL histend(nid_files(iff))
                 ndex2d = 0
@@ -1921 +1926 @@
              ENDIF ! clef_files
           ENDDO !  iff
+          PRINT *,'IFF fin boucle'
 #endif
 #ifdef CPP_XIOS
           !On finalise l'initialisation:
+          PRINT *,'avt wxios'
           CALL wxios_closedef()
+          PRINT *,'apres wxios'
 #endif
           !$OMP END MASTER
@@ -1933 +1941 @@
 
     ENDDO
+    PRINT *,'fin call histend'
 
     IF (vars_defined) THEN
@@ -1939 +1948 @@
        !$OMP MASTER
        DO iff=1,nfiles
+                PRINT *,'IFF sync=', iff, clef_files(iff)
           IF (ok_sync .AND. clef_files(iff)) THEN
              CALL histsync(nid_files(iff))
@@ -1946 +1956 @@
 #endif
     ENDIF
+    PRINT *,'fin phys_output_write'
 
   END SUBROUTINE phys_output_write