Ignore:
Timestamp:
Jul 31, 2024, 9:54:47 PM (12 months ago)
Author:
abarral
Message:

Fix ecrad & rrtm compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cosp2/cosp_output_write_mod.F90

    r5133 r5154  
    462462    USE lmdz_print_control, ONLY: lunout,prt_level
    463463    USE wxios
     464    USE lmdz_clesphys
    464465
    465466    IMPLICIT NONE
    466 
    467     INCLUDE "clesphys.h"
    468467
    469468    INTEGER                          :: iff
    … …  
    523522    USE lmdz_print_control, ONLY: lunout,prt_level
    524523    USE wxios
     524    USE lmdz_clesphys
    525525
    526526    IMPLICIT NONE
    527 
    528     INCLUDE "clesphys.h"
    529527
    530528    INTEGER                        :: iff, klevs
    … …  
    627625  USE lmdz_xios, only: xios_send_field, using_xios
    628626  USE lmdz_abort_physic, ONLY: abort_physic
     627  USE lmdz_clesphys
    629628
    630629  IMPLICIT NONE
    631   INCLUDE 'clesphys.h'
    632630
    633631    TYPE(ctrl_outcosp), INTENT(IN) :: var
    … …  
    714712  USE lmdz_xios, only: xios_send_field, using_xios
    715713  USE lmdz_abort_physic, ONLY: abort_physic
     714  USE lmdz_clesphys
    716715
    717716  IMPLICIT NONE
    718   INCLUDE 'clesphys.h'
    719717
    720718    TYPE(ctrl_outcosp), INTENT(IN)    :: var
    … …  
    811809  USE lmdz_xios, only: xios_send_field, using_xios
    812810  USE lmdz_abort_physic, ONLY: abort_physic
     811  USE lmdz_clesphys
    813812
    814813  IMPLICIT NONE
    815   INCLUDE 'clesphys.h'
    816814
    817815    TYPE(ctrl_outcosp), INTENT(IN)    :: var
Note: See TracChangeset for help on using the changeset viewer.