Changeset 1920 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Dec 19, 2013, 11:31:02 AM (11 years ago)
Author:
idelkadi
Message:

Correction de bug sur les sorties NMC en cas de simulaion en mode parallel

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

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

    r1912 r1920  
    77  USE aero_mod, only : naero_spc,name_aero
    88  USE phys_output_write_mod, ONLY : phys_output_write
     9  REAL, DIMENSION(nfiles),SAVE :: ecrit_files
    910
    1011! Abderrahmane 12 2007
     
    106107    CHARACTER(LEN=6)                      :: type_ocean
    107108    CHARACTER(LEN=3)                      :: ctetaSTD(nbteta)
    108     REAL, DIMENSION(nfiles)               :: ecrit_files
    109109    INTEGER, DIMENSION(iim*jjmp1)         ::  ndex2d
    110110    INTEGER, DIMENSION(iim*jjmp1*klev)    :: ndex3d
     
    488488    ecrit_LES = ecrit_files(5)
    489489    ecrit_ins = ecrit_files(6)
    490     freq_outNMC(1) = ecrit_files(7)
    491     freq_outNMC(2) = ecrit_files(8)
    492     freq_outNMC(3) = ecrit_files(9)
    493 
    494     WRITE(lunout,*)'freq_outNMC(1)=',freq_outNMC(1)
    495     WRITE(lunout,*)'freq_outNMC(2)=',freq_outNMC(2)
    496     WRITE(lunout,*)'freq_outNMC(3)=',freq_outNMC(3)
     490
    497491    WRITE(lunout,*)'swaero_diag=',swaero_diag
    498492    WRITE(lunout,*)'Fin phys_output_mod.F90'
     493
    499494  end SUBROUTINE phys_output_open
    500495
  • LMDZ5/trunk/libf/phylmd/physiq.F90

    r1917 r1920  
    12571257     !$OMP BARRIER
    12581258
     1259    freq_outNMC(1) = ecrit_files(7)
     1260    freq_outNMC(2) = ecrit_files(8)
     1261    freq_outNMC(3) = ecrit_files(9)
     1262    WRITE(lunout,*)'OK freq_outNMC(1)=',freq_outNMC(1)
     1263    WRITE(lunout,*)'OK freq_outNMC(2)=',freq_outNMC(2)
     1264    WRITE(lunout,*)'OK freq_outNMC(3)=',freq_outNMC(3)
    12591265
    12601266     include "ini_histday_seri.h"
Note: See TracChangeset for help on using the changeset viewer.