Ignore:
Timestamp:
Dec 15, 2023, 12:38:51 PM (6 months ago)
Author:
idelkadi
Message:

Correction: update of phylmdiso following modifications linked to the implementation of the double call of Ecrad

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4703 r4775  
    177177  !$OMP THREADPRIVATE(tkt, tks, taur, sss)
    178178
     179  !AI. cloud_cover_sw, cloud_cover_sw_s2 from Ecrad (1rt and 2 call)
     180  REAL, SAVE, ALLOCATABLE:: cloud_cover_sw(:), cloud_cover_sw_s2(:)
     181  !$OMP THREADPRIVATE(cloud_cover_sw, cloud_cover_sw_s2)
     182
    179183CONTAINS
    180184
    … …  
    253257    ALLOCATE(icc3dstra(klon, klev))
    254258
     259    ! cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
     260    ALLOCATE(cloud_cover_sw(klon))
     261    ALLOCATE(cloud_cover_sw_s2(klon))
     262
    255263  END SUBROUTINE phys_output_var_init
    256264
    … …  
    304312    DEALLOCATE(icc3dstra)
    305313
     314    !AI cloud_cover_sw, cloud_cover_sw_s2 from Ecrad
     315    DEALLOCATE(cloud_cover_sw, cloud_cover_sw_s2)
     316
    306317  END SUBROUTINE phys_output_var_end
    307318
Note: See TracChangeset for help on using the changeset viewer.