Changeset 3374 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Jul 17, 2018, 10:47:07 PM (6 years ago)
Author:
idelkadi
Message:

Correction dans le cas ou les sorties COSP sont geres par IOIPSL

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

    r3347 r3374  
    183183
    184184! Clefs Outputs initialisation
     185#ifdef CPP_XIOS
    185186  call cosp_outputkeys_init(cfg)
     187#else
     188  call read_cosp_output_nl(itap,cosp_output_nl,cfg)
     189#endif
    186190!!!   call cosp_outputkeys_test(cfg)
    187191  print*,' Cles des differents simulateurs cosp a itap :',itap
    … …  
    201205#ifdef CPP_XIOS
    202206    call read_xiosfieldactive(cfg)
    203 #else
    204     call read_cosp_output_nl(itap,cosp_output_nl,cfg)
    205207#endif
    206208    first_write=.false.
Note: See TracChangeset for help on using the changeset viewer.