Ignore:
Timestamp:
Feb 24, 2025, 3:39:32 PM (11 hours ago)
Author:
lebasn
Message:

StratAer?: clean duplicated module loading, specify loading vars from module + variable initialisation for debug mode.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/StratAer/interp_sulf_input.f90

    r5338 r5559  
    118118
    119119  IF (is_mpi_root.AND.is_omp_root) THEN
    120 
     120   
     121    OCS_lifetime(:,:)=0.0
     122    SO2_lifetime(:,:)=0.0
     123    H2SO4_lifetime(:,:)=0.0
     124    O3_clim(:,:)=0.0
     125     
    121126    !--init ncdf variables
    122127    IF(flag_newclim_file) THEN
    … …  
    332337
    333338!--regridding tracer concentration on the vertical
     339  budg_3D_backgr_ocs(:,:)=0.0
     340  budg_3D_backgr_so2(:,:)=0.0
     341 
    334342  DO i=1, klon
    335343    DO k=1, klev
Note: See TracChangeset for help on using the changeset viewer.