Changeset 2372 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Jun 11, 2020, 11:53:18 PM (5 years ago)
Author:
aslmd
Message:

added a MESOSCALE flag at one location where it was missing (file_ok is not declared because also under the MESOSCALE pre-compiling flag)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

    r2366 r2372  
    437437           int_dtaui(:,:,:) = 0.D0
    438438           int_dtauv(:,:,:) = 0.D0
    439            
     439         
     440#ifndef MESOSCALE
    440441           IF (callmufi .AND. (.NOT. uncoupl_optic_haze)) THEN
    441442             haze_opt_file=trim(datadir)//'/HAZE_OPTIC_'//trim(adjustl(tmp1))//'x'//trim(adjustl(tmp2))//'.DAT'
    … …  
    449450              endif
    450451           ENDIF
    451            
     452#endif           
     453
    452454         endif
    453455
Note: See TracChangeset for help on using the changeset viewer.