Ignore:
Timestamp:
Jun 10, 2016, 2:04:19 PM (8 years ago)
Author:
fhourdin
Message:

Parametrisation d'une longueur de melange verticale minimum associee
aux circulations meso-echelle introduites par le relief sous maille.
D'apres Etienne Vignon et Frédéric Hourdin

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2553 r2561  
    745745  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_srf      = (/             &
    746746      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_ter',       &
    747       "Max Turb. Kinetic Energy "//clnsurf(1),"-", (/ ('', i=1, 9) /)), &
     747      "Max Turb. Kinetic Energy "//clnsurf(1),"m2/s2", (/ ('', i=1, 9) /)), &
    748748      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_lic',       &
    749       "Max Turb. Kinetic Energy "//clnsurf(2),"-", (/ ('', i=1, 9) /)), &
     749      "Max Turb. Kinetic Energy "//clnsurf(2),"m2/s2", (/ ('', i=1, 9) /)), &
    750750      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_oce',       &
    751       "Max Turb. Kinetic Energy "//clnsurf(3),"-", (/ ('', i=1, 9) /)), &
     751      "Max Turb. Kinetic Energy "//clnsurf(3),"m2/s2", (/ ('', i=1, 9) /)), &
    752752      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'tke_sic',       &
    753       "Max Turb. Kinetic Energy "//clnsurf(4),"-", (/ ('', i=1, 9) /)) /)
     753      "Max Turb. Kinetic Energy "//clnsurf(4),"m2/s2", (/ ('', i=1, 9) /)) /)
     754
     755  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mixmin      = (/             &
     756      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_ter',       &
     757      "PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
     758      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_lic',       &
     759      "PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
     760      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_oce',       &
     761      "PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
     762      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mixmin_sic',       &
     763      "PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
     764
     765  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_l_mix      = (/             &
     766      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_ter',       &
     767      "min PBL mixing length "//clnsurf(1),"m", (/ ('', i=1, 9) /)), &
     768      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_lic',       &
     769      "min PBL mixing length "//clnsurf(2),"m", (/ ('', i=1, 9) /)), &
     770      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_oce',       &
     771      "min PBL mixing length "//clnsurf(3),"m", (/ ('', i=1, 9) /)), &
     772      ctrl_out((/ 10, 4, 10, 10, 10, 10, 11, 11, 11 /),'l_mix_sic',       &
     773      "min PBL mixing length "//clnsurf(4),"m", (/ ('', i=1, 9) /)) /)
    754774
    755775  TYPE(ctrl_out), SAVE, DIMENSION(4) :: o_tke_max_srf  = (/                          &
Note: See TracChangeset for help on using the changeset viewer.