Ignore:
Timestamp:
Jul 25, 2013, 10:33:44 AM (11 years ago)
Author:
idelkadi
Message:

Inclusion of the convective scale velocity w* for tracers
Concerns : hbtm.F, pbl_surface_mod.F90,
physiq.F, phys_output_ctrlout_mod.F90, phys_output_write_mod.F90

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r1813 r1816  
    9393      ctrl_out((/ 10, 6, 10, 10, 10, 10 /),'ustar_sic', &
    9494      "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 6) /)) /)
     95
     96  TYPE(ctrl_out), SAVE, DIMENSION(5) :: o_wstar         = (/ &
     97      ctrl_out((/ 10, 6, 10, 10, 10, 10 /),'wstar_ter', &
     98      "Friction velocity "//clnsurf(1),"m/s", (/ ('', i=1, 6) /)), &
     99      ctrl_out((/ 10, 6, 10, 10, 10, 10 /),'wstar_lic', &
     100      "Friction velocity "//clnsurf(2),"m/s", (/ ('', i=1, 6) /)), &
     101      ctrl_out((/ 10, 6, 10, 10, 10, 10 /),'wstar_oce', &
     102      "Friction velocity "//clnsurf(3),"m/s", (/ ('', i=1, 6) /)), &
     103      ctrl_out((/ 10, 6, 10, 10, 10, 10 /),'wstar_sic', &
     104      "Friction velocity "//clnsurf(4),"m/s", (/ ('', i=1, 6) /)), &
     105      ctrl_out((/ 5, 5, 10, 10, 10, 10 /),'wstar', &
     106      "w* convective velocity "//clnsurf(4),"m/s", (/ ('', i=1, 6) /)) /)
    95107
    96108  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_u10m_srf     = (/ &
Note: See TracChangeset for help on using the changeset viewer.