Ignore:
Timestamp:
Jan 30, 2019, 5:55:48 PM (6 years ago)
Author:
lguez
Message:

Introduce variable activate_ocean_skin in module config_ocean_skin_m.

Bug fix in phys_state_var_end: we need to deallocate variables for
lmdz1d (although it is useless for a 3D run).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Ocean_skin/libf/phylmd/phys_output_var_mod.F90

    r3429 r3458  
    167167  SUBROUTINE phys_output_var_init
    168168    use dimphy
     169    use config_ocean_skin_m, only: activate_ocean_skin
    169170
    170171    IMPLICIT NONE
    … …  
    220221    IF (ok_gwd_rando) allocate(zustr_gwd_rando(klon), zvstr_gwd_rando(klon))
    221222
    222     allocate(t_int(klon), s_int(klon), dter(klon), dser(klon), tkt(klon), &
    223          tks(klon), rf(klon), taur(klon))
     223    if (activate_ocean_skin >= 1) allocate(t_int(klon), s_int(klon), &
     224         dter(klon), dser(klon), tkt(klon), tks(klon), rf(klon), taur(klon))
    224225
    225226  END SUBROUTINE phys_output_var_init
Note: See TracChangeset for help on using the changeset viewer.