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

Fix ecrad & rrtm compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/cospv2/lmdz_cosp_output_write_mod.F90

    r5133 r5154  
    657657    USE lmdz_grid_phy, ONLY: nbp_lon
    658658    USE lmdz_print_control, ONLY: lunout,prt_level
    659   USE wxios
     659    USE wxios
     660    USE lmdz_clesphys
    660661
    661662    IMPLICIT NONE
    662 
    663     INCLUDE "clesphys.h"
    664663
    665664    INTEGER                          :: iff
    … …  
    711710    USE lmdz_print_control, ONLY: lunout,prt_level
    712711
    713   USE wxios
     712    USE wxios
     713    USE lmdz_clesphys
    714714
    715715
    716716    IMPLICIT NONE
    717 
    718     INCLUDE "clesphys.h"
    719717
    720718    INTEGER                        :: iff, klevs
    … …  
    809807  USE lmdz_xios, only: xios_send_field
    810808  USE lmdz_abort_physic, ONLY: abort_physic
     809  USE lmdz_clesphys
    811810
    812811  IMPLICIT NONE
    813   INCLUDE 'clesphys.h'
    814812
    815813    TYPE(ctrl_outcosp), INTENT(IN) :: var
    … …  
    892890  USE lmdz_xios, only: xios_send_field
    893891  USE lmdz_abort_physic, ONLY: abort_physic
    894 
     892  USE lmdz_clesphys
    895893
    896894  IMPLICIT NONE
    897   INCLUDE 'clesphys.h'
    898895
    899896    TYPE(ctrl_outcosp), INTENT(IN)    :: var
    … …  
    984981  USE lmdz_xios, only: xios_send_field
    985982  USE lmdz_abort_physic, ONLY: abort_physic
    986 
     983  USE lmdz_clesphys
    987984
    988985  IMPLICIT NONE
    989   INCLUDE 'clesphys.h'
    990986
    991987    TYPE(ctrl_outcosp), INTENT(IN)    :: var
Note: See TracChangeset for help on using the changeset viewer.