Aller au contenu. | Aller à la navigation

Outils personnels

Navigation
Vous êtes ici : Accueil / Le coin des développeurs / Statistiques SVN / LMDZ6 mai 2020 / StatSVN - Directory branches/Ocean_skin/libf/phylmd/

StatSVN - Directory branches/Ocean_skin/libf/phylmd/

Directory branches/Ocean_skin/libf/phylmd/

Total Files:
82
Deleted Files:
1
Lines of Code:
68993

[root]/branches/Ocean_skin/libf/phylmd
                    directory in repo StratAer (15 files, 4058 lines)
                    directory in repo cosp (1 files, 450 lines)
                    directory in repo cosp2 (1 files, 447 lines)
                    directory in repo dyn1d (15 files, 13594 lines)
                    directory in repo rrtm (7 files, 4328 lines)
                    directory in repo sisvat (1 files, 1741 lines)

Lines of Code

branches/Ocean_skin/libf/phylmd/ Lines of Code

Developers

Author Changes Lines of Code Lines per Change
lguez 207 (100.0%) 9515 (100.0%) 45.9

Most Recent Commits

lguez 2020-04-29 20:32 Rev.: 3672

Do not output t_int if activate_ocean_skin == 2

4 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: phys_output_write_mod.F90 (+4 -1)
lguez 2020-04-01 21:34 Rev.: 3657

Bug fix: name of field received from the coupler

1 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: oasis.F90 (+1 -1)
lguez 2020-03-23 15:43 Rev.: 3652

Bug fix: the names of coupling fields should be no more than 8
characters long, according to definition of type `fld_cpl`.

2 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: oasis.F90 (+2 -2)
lguez 2020-02-21 12:46 Rev.: 3639

Bug fix: missing declaration. (This bug could not be seen in
compilation without `CPP_COUPLE`.)

1 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: oasis.F90 (+1 -2)
lguez 2020-02-19 17:14 Rev.: 3638

Change name of fields exchanged with the ocean, following choices of C. Eth\'e.

3 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: oasis.F90 (+3 -3)
lguez 2020-02-04 23:36 Rev.: 3628

If the ocean skin parameterization is working actively
(`activate_ocean_skin == 2`) and we are coupled to the ocean then send
ocean-air interface salinity to the ocean. New dummy argument `s_int`
of procedures `ocean_cpl_noice` and `cpl_send_ocean_fields`. We can
only send interface salinity from the previous time-step since
communication with the ocean is before the call to bulk_flux. So make
`s_int` a state variable: move `s_int` from `phys_output_var_mod` to
`phys_state_var_mod`. Still, we only read `s_int` from startphy,
define it before the call to `surf_ocean` and write it to restartphy
if `activate_ocean_skin == 2` and `type_ocean == 'couple'`. In
procedure `pbl_surface`, for clarity, move the definition of output
variables `t_int`, dter, dser, tkt, tks, rf, taur to `missing_val` to
after the call to `surf_ocean`, with the definition of `s_int`,
`ds_ns`, `dt_ns` to `missing_val`. This does not change anything for
`t_int`, dter, dser, tkt, tks, rf, taur. In `pbl_surface_newfrac`, we
choose to set `s_int` to 35 for an appearing ocean point, this is
questionable. In `surf_ocean`, change the intent of `s_int` from out
to inout.

82 lines of code changed in 10 files:

  • branches/Ocean_skin/libf/phylmd: cpl_mod.F90 (+28 -14), oasis.F90 (+4 -2), ocean_cpl_mod.F90 (+6 -6), pbl_surface_mod.F90 (+18 -17), phyetat0.F90 (+6 -2), phyredem.F90 (+5 -2), phys_output_var_mod.F90 (+3 -4), phys_output_write_mod.F90 (+3 -3), phys_state_var_mod.F90 (+6 -3), surf_ocean_mod.F90 (+3 -2)
lguez 2020-02-03 15:27 Rev.: 3627

If the ocean skin parameterization is working (passively or actively,
`activate_ocean_skin >= 1`) and we are coupled to the ocean then
receive bulk salinity of the surface layer of the ocean from the ocean
and feed it to procedure `bulk_flux` instead of the constant
value 35. If the ocean skin parameterization is working actively
(`activate_ocean_skin == 2`) and we are coupled to the ocean then send
ocean-air interface temperature to the ocean. We can only send
interface temperature from the previous time-step since communication
with the ocean is before the call to `bulk_flux`. In module `cpl_mod`,
define `cpl_t_int` with rank 1: no dimension for `cpl_index` because
`t_int` is only defined over ocean. New dummy argument sss of
procedures `cpl_receive_ocean_fields` and `ocean_cpl_noice`. New dummy
argument `t_int` of `cpl_send_ocean_fields`. In procedure
`surf_ocean`, rename local variable s1 to sss and give it the size
klon, which is required by the coupling machinery.

111 lines of code changed in 4 files:

  • branches/Ocean_skin/libf/phylmd: cpl_mod.F90 (+62 -9), oasis.F90 (+19 -2), ocean_cpl_mod.F90 (+17 -6), surf_ocean_mod.F90 (+13 -9)
lguez 2020-01-30 15:38 Rev.: 3626

Bug fix: use `missing_val` from XIOS for output with XIOS, else the
operations are not done propoerly in XIOS.

25 lines of code changed in 3 files:

  • branches/Ocean_skin/libf/phylmd: pbl_surface_mod.F90 (+15 -11), phyetat0.F90 (+7 -3), phys_output_ctrlout_mod.F90 (+3 -3)
lguez 2019-12-17 16:44 Rev.: 3617

Sync latest trunk changes to branch `Ocean_skin`

3 lines of code changed in 2 files:

  • branches/Ocean_skin/libf/phylmd: cv3_routines.F90 (+1 -1), physiq_mod.F90 (+2)
lguez 2019-11-21 17:43 Rev.: 3605

Merge revisions 3427:3600 of trunk into branch `Ocean_skin`

9170 lines of code changed in 139 files:

  • branches/Ocean_skin/libf/phylmd: YOMCST.h (+4 -2), acama_gwd_rando_m.F90 (+13 -5), add_phys_tend_mod.F90 (new), alpale_th.F90 (+21 -12), atm2geo.F90 (+42 -17), borne_var_surf.F90 (new 111), calcul_divers.h (new), carbon_cycle_mod.F90 (+68 -386), clesphys.h (+1 -3), cloudth_mod.F90 (+370 -21), coef_diff_turb_mod.F90 (+8), concvl.F90 (+7 -5), conf_phys_m.F90 (+48 -20), cpl_mod.F90 (new), create_etat0_limit_unstruct.F90 (new 121), create_etat0_unstruct.F90 (new 261), create_limit_unstruct.F90 (new 319), cv30_routines.F90 (new), cv3_mixscale.F90 (+12 -7), cv3_routines.F90 (+714 -139), cv3a_uncompress.F90 (+12 -6), cv3p1_closure.F90 (+3 -3), cv3p2_closure.F90 (+4 -3), cv3p_mixing.F90 (new), cv3param.h (+7 -12), cv_driver.F90 (+16), cva_driver.F90 (+46 -25), cvflag.h (+20 -1), dimphy.F90 (new), fisrtilp.F90 (new), flott_gwd_rando_m.F90 (new), geo2atm.F90 (new), grid_noro_m.F90 (+3 -2), ini_undefSTD.F90 (+1 -1), inifis_mod.F90 (+2 -1), iophy.F90 (+158 -93), iostart.F90 (+126 -52), limit_read_mod.F90 (+94 -8), mo_simple_plumes.F90 (+91 -22), mod_synchro_omp.F90 (+8 -2), moy_undefSTD.F90 (+2 -2), oasis.F90 (new), orografi_strato.F90 (new), pbl_surface_mod.F90 (+5 -4), phyaqua_mod.F90 (+175 -89), phyetat0.F90 (+54 -48), phyredem.F90 (+163 -154), phys_cal_mod.F90 (new), phys_local_var_mod.F90 (new), phys_output_ctrlout_mod.F90 (+42 -12), phys_output_mod.F90 (new), phys_output_write_mod.F90 (+338 -149), phys_state_var_mod.F90 (+41 -8), physiq_mod.F90 (+577 -374), phytrac_mod.F90 (new), radlwsw_m.F90 (+77 -32), readaerosol.F90 (del), readaerosol_mod.F90 (new 739), readaerosolstrato.F90 (new), readaerosolstrato_m.F90 (new 138), readchlorophyll.F90 (new), regr_horiz_time_climoz_m.F90 (new), regr_pr_time_av_m.F90 (+39 -11), simu_airs.F90 (new), slab_heat_transp_mod.F90 (new), suphel.F90 (+9 -1), surf_land_mod.F90 (+5), surf_land_orchidee_mod.F90 (+221 -67), surf_land_orchidee_nounstruct_mod.F90 (new 682), surf_land_orchidee_noz0h_mod.F90 (+2 -1), thermcell_main.F90 (+22 -8), thermcell_plume.F90 (new 495), thermcell_plume_6A.F90 (new 1186), tracco2i_mod.F90 (new), traclmdz_mod.F90 (-15), undefSTD.F90 (new), wake.F90 (+9 -3), write_histrac.h (new), yamada4.F90 (new)
lguez 2019-11-18 17:48 Rev.: 3601

Add output variable `tsoil_deep_land`.

12 lines of code changed in 4 files:

  • branches/Ocean_skin/libf/phylmd: phys_output_ctrlout_mod.F90 (+6 -2), phys_output_var_mod.F90 (+1 -2), phys_output_write_mod.F90 (+4 -2), surf_ocean_mod.F90 (+1 -1)
lguez 2019-09-03 18:29 Rev.: 3556

Polish

4 lines of code changed in 3 files:

  • branches/Ocean_skin/libf/phylmd: phys_output_ctrlout_mod.F90 (+2 -1), phys_output_var_mod.F90 (+1), surf_ocean_mod.F90 (+1)
lguez 2019-04-16 17:19 Rev.: 3478

Polish.

1 lines of code changed in 1 file:

  • branches/Ocean_skin/libf/phylmd: surf_ocean_mod.F90 (+1 -2)
lguez 2019-02-08 15:28 Rev.: 3463

Compute surface sensible heat flux and latent heat flux using
ocean-atmosphere interface temperature instead of bulk SST, if
activate_ocean_skin == 2. So we add argument tsurf_in to
ocean_cpl_noice and ocean_forced_noice, and call calcul_fluxs with
tsurf_in. tsurf_in was already an argument of ocean_slab_noice, and
calcul_fluxs was already called with tsurf_in in ocean_slab_noice.

In procedure surf_ocean, when activate_ocean_skin == 2, rf should be
computed from the ocean-atmosphere interface temperature, tsurf_in,
not the SST bulk temperature, tsurf_new. So, for consistency, we also
use tsurf_in when activate_ocean_skin == 1. So this revision also
changes the results when activate_ocean_skin == 1.

16 lines of code changed in 5 files:

  • branches/Ocean_skin/libf/phylmd: ocean_cpl_mod.F90 (new), ocean_forced_mod.F90 (new), surf_ocean_mod.F90 (+3 -3)
lguez 2019-01-30 18:55 Rev.: 3458

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).

74 lines of code changed in 7 files:

  • branches/Ocean_skin/libf/phylmd: pbl_surface_mod.F90 (+18 -12), phyetat0.F90 (+10 -6), phyredem.F90 (+5 -2), phys_output_var_mod.F90 (+3 -2), phys_output_write_mod.F90 (+13 -10), phys_state_var_mod.F90 (+6 -2), surf_ocean_mod.F90 (+19 -14)
lguez 2019-01-18 19:29 Rev.: 3432

Move the call to config_ocean_skin out of !$OMP MASTER in procedure
conf_phys. Definition of jcool, jwarm and rain_effect must be done by
all threads.

Use keywords in call to bulk_flux in procedure surf_ocean, for clarity.

Define CPP_KEY IN_LMDZ in makelmdz_fcm. This could be useful for any
external code used with LMDZ.

Move the Ocean_skin folder out of the LMDZ tree. This is more
convenient and clearer because Ocean_skin stays under Git control for
now. So we do not declare a phylmd/Ocean_skin folder in
"bld.cfg". Instead, we use the option -ext_src of makelmdz_fcm.

6 lines of code changed in 2 files:

  • branches/Ocean_skin/libf/phylmd: conf_phys_m.F90 (+1 -4), surf_ocean_mod.F90 (+5 -4)
lguez 2019-01-02 20:44 Rev.: 3429

Create subdirectory Ocean_skin in libf. For now, Ocean_skin is under
control of git, not subversion.

Add variable eps_w to common YOMCST.

For now, continue to read ocean skin parameters from a namelist in
config_ocean_skin.

The parameterisation is called from procedure surf_ocean.

Add two prognostic variables for the parameterisation: dt_ns and
ds_ns. Add eight diagnostic variables: t_int, s_int, dter, dser, tkt,
tks, rf, taur. The ten variables are only defined on ocean surface,
elsewhere they are set to nf90_fill_real. In pbl_surface, we can
initialize the eight diagnostic variables to nf90_fill_real before the
loop on sub-surfaces, but we need to keep the old values of dt_ns and
ds_ns as input of the parameterisation so we set dt_ns and ds_ns to
nf90_fill_real after the call to surf_ocean. Define ten corresponding
compressed variables in pbl_surface. Define ten corresponding NetCDF
output variables in phys_output_ctrlout_mod.

In procedure pbl_surface_newfrac, for an appearing ocean sub-surface,
dt_ns and ds_ns are set to 0. In phyetat0, also set initial dt_ns and
ds_ns to 0 if they are not in start file.

In procedure surf_ocean, for now, we use a constant specific latent
heat of vaporization, as elsewhere in LMDZ, and a constant bulk
salinity.

0 lines of code changed in 22 files:

  • branches/Ocean_skin/libf/phylmd: YOMCST.h (changed), conf_phys_m.F90 (changed), pbl_surface_mod.F90 (changed), phyetat0.F90 (changed), phyredem.F90 (changed), phys_output_ctrlout_mod.F90 (new), phys_output_var_mod.F90 (new), phys_output_write_mod.F90 (changed), phys_state_var_mod.F90 (changed), suphel.F90 (new), surf_ocean_mod.F90 (changed)
Generated by StatSVN 0.7.0
Ajouter un commentaire

Vous pouvez ajouter un commentaire en complétant le formulaire ci-dessous. Le format doit être plain text. Les commentaires sont modérés.

Enter the word