Ignore:
Timestamp:
Jul 31, 2017, 4:10:16 PM (7 years ago)
Author:
Laurent Fairhead
Message:

Inclusion of iflag_phytrac in 6.0.12 branch
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/phys_output_write_mod.F90

    r2958 r2974  
    19011901#endif
    19021902!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     1903       IF (iflag_phytrac == 1 ) then
    19031904       IF (nqtot.GE.nqo+1) THEN
    19041905          DO iq=nqo+1, nqtot
    … …  
    19311932          ENDDO
    19321933       ENDIF
     1934       ENDIF   !(iflag_phytrac==1)
     1935
    19331936
    19341937       IF (.NOT.vars_defined) THEN
Note: See TracChangeset for help on using the changeset viewer.