Ignore:
Timestamp:
Dec 19, 2025, 11:19:30 AM (3 months ago)
Author:
yann meurdesoif
Message:

GPU port of surf_seaice
Merge of commit r5889
YM

Location:
LMDZ6/trunk/libf/phylmd/Ocean_skin
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/Ocean_skin/esat_m.f90

    r5268 r5965  
    55contains
    66
    7   elemental real function esat(T, P)
    8 
     7   elemental real function esat(T, P)
     8   implicit none
    99    ! Saturation vapor pressure of water in Pa. Buck, 1981,
    1010    ! J. Appl. Meteor. 20, 1527-1532, equation (8).
    11 
    1211    real, intent(in):: T ! temperature, in K
    1312    real, intent(in):: P ! air pressure, in Pa
     13    real            :: esat
    1414
    1515    !--------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/Ocean_skin/sens_heat_rain_m.F90

    r5274 r5965  
    2727     USE yomcst_mod_h, ONLY: eps_w
    2828#endif
    29 
     29    real            :: sens_heat_rain
    3030    real, intent(in):: rain ! rain mass flux, in kg m-2 s-1
    3131    real, intent(in):: t ! air temperature at 10 m, in K
Note: See TracChangeset for help on using the changeset viewer.