Changeset 3917


Ignore:
Timestamp:
Feb 24, 2016, 6:26:00 PM (9 years ago)
Author:
ymipsl
Message:

Bug fix for acquaplanet configuration : state var must allocated and deallocated at the end of iniaqua

YM

Location:
dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phyaqua_mod.F90

    r3895 r3917  
    338338
    339339    PRINT *, 'iniaqua: after phyredem'
    340 !    CALL phys_state_var_end
     340    CALL phys_state_var_end
    341341
    342342    RETURN

  • dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_state_var_mod.F90

    r3867 r3917  
    397397      !$OMP THREADPRIVATE(du_gwd_rando, dv_gwd_rando)
    398398      ! tendencies on wind due to gravity waves
     399
     400      INTEGER,SAVE :: is_initialized=.FALSE.
     401!$OMP THREADPRIVATE(is_initialized)   
    399402     
    400403CONTAINS
    … …  
    419422
    420423include "clesphys.h"
    421       INTEGER,SAVE :: is_initialized=.FALSE.
    422 !$OMP THREADPRIVATE(is_initialized)   
    423424
    424425      IF (is_initialized) RETURN
    … …  
    714715      deallocate(ale_bl_trig)
    715716!!! fin nrlmd le 10/04/2012
    716 
     717      is_initialized=.FALSE.
    717718END SUBROUTINE phys_state_var_end
    718719
Note: See TracChangeset for help on using the changeset viewer.