Ignore:
Timestamp:
May 27, 2025, 1:07:44 PM (2 months ago)
Author:
fhourdin
Message:

Correction/nettoyage sorties en pression

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5681 r5685  
    19041904       ok_sync=ok_sync_omp
    19051905
    1906        freq_outNMC(1) = ecrit_files(7)
    1907        freq_outNMC(2) = ecrit_files(8)
    1908        freq_outNMC(3) = ecrit_files(9)
    1909        WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
    1910        WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
    1911        WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
     1906!       freq_outNMC(1) = ecrit_files(7)
     1907!       freq_outNMC(2) = ecrit_files(8)
     1908!       freq_outNMC(3) = ecrit_files(9)
     1909!       WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
     1910!       WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
     1911!       WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
     1912
    19121913
    19131914#ifndef CPP_XIOS
Note: See TracChangeset for help on using the changeset viewer.