Changeset 2780 for LMDZ5/trunk


Ignore:
Timestamp:
Jan 26, 2017, 9:58:14 PM (8 years ago)
Author:
oboucher
Message:

Adding write of two variables toplwai and sollwai

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

    r2754 r2780  
    115115         o_swsrfcs_nat, o_swsrfcf_ant, &
    116116         o_swtoacf_zero, o_swsrfcf_zero, &
    117          o_topswai, o_solswai, o_scdnc, &
     117         o_topswai, o_solswai, o_toplwai, o_sollwai, o_scdnc, &
    118118         o_cldncl, o_reffclws, o_reffclwc, o_stratomask,&
    119119         o_cldnvi, o_lcc, o_lcc3d, o_lcc3dcon, &
     
    479479    ! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage:
    480480    DO iinit=1, iinitend
     481!      print *,'IFF iinit=', iinit, iinitend
    481482#ifdef CPP_XIOS
    482483       !$OMP MASTER
     
    12841285       IF (ok_aie) THEN
    12851286          CALL histwrite_phy(o_topswai, topswai_aero*swradcorr)
     1287          CALL histwrite_phy(o_toplwai, toplwai_aero*swradcorr)
    12861288          CALL histwrite_phy(o_solswai, solswai_aero*swradcorr)
     1289          CALL histwrite_phy(o_sollwai, sollwai_aero*swradcorr)
    12871290       ENDIF
    12881291       IF (flag_aerosol.GT.0.AND.ok_cdnc) THEN
     
    19151918#ifndef CPP_IOIPSL_NO_OUTPUT
    19161919          DO iff=1,nfiles
     1920             PRINT *,'IFF=', iff
    19171921             IF (clef_files(iff)) THEN
     1922                PRINT *,'IFF=', iff, clef_files(iff)
    19181923                CALL histend(nid_files(iff))
    19191924                ndex2d = 0
     
    19211926             ENDIF ! clef_files
    19221927          ENDDO !  iff
     1928          PRINT *,'IFF fin boucle'
    19231929#endif
    19241930#ifdef CPP_XIOS
    19251931          !On finalise l'initialisation:
     1932          PRINT *,'avt wxios'
    19261933          CALL wxios_closedef()
     1934          PRINT *,'apres wxios'
    19271935#endif
    19281936          !$OMP END MASTER
     
    19331941
    19341942    ENDDO
     1943    PRINT *,'fin call histend'
    19351944
    19361945    IF (vars_defined) THEN
     
    19391948       !$OMP MASTER
    19401949       DO iff=1,nfiles
     1950                PRINT *,'IFF sync=', iff, clef_files(iff)
    19411951          IF (ok_sync .AND. clef_files(iff)) THEN
    19421952             CALL histsync(nid_files(iff))
     
    19461956#endif
    19471957    ENDIF
     1958    PRINT *,'fin phys_output_write'
    19481959
    19491960  END SUBROUTINE phys_output_write
Note: See TracChangeset for help on using the changeset viewer.