Changeset 4024 for LMDZ6/branches


Ignore:
Timestamp:
Nov 26, 2021, 8:27:28 AM (3 years ago)
Author:
lguez
Message:

Only give initial value when needed

Only give initial value to delta_sst and delta_sal when needed:
when we want to send them to the ocean.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r4020 r4024  
    545545
    546546        where (pctsrf(:, is_oce) == 0.)
     547           delta_sst = missing_val
     548           delta_sal = missing_val
    547549           dter = missing_val
    548550           dser = missing_val
    … …  
    558560        ds_ns = missing_val
    559561        dt_ns = missing_val
    560         delta_sst = missing_val
    561         delta_sal = missing_val
    562562     end where
    563563  end if
Note: See TracChangeset for help on using the changeset viewer.