Changeset 5274 for LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (9 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_ocean_mod.F90
r5022 r5274 43 43 #endif 44 44 #endif 45 USE limit_read_mod 45 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 46 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 47 , R_ecc, R_peri, R_incl & 48 , RA, RG, R1SA & 49 , RSIGMA & 50 , R, RMD, RMV, RD, RV, RCPD & 51 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 52 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 53 , RCW, RCS & 54 , RLVTT, RLSTT, RLMLT, RTT, RATM & 55 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 56 , RALPD, RBETD, RGAMD 57 USE limit_read_mod 46 58 USE config_ocean_skin_m, ONLY: activate_ocean_skin 47 59 ! 48 ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 49 ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 50 ! done in here because they are identical for the different modes of ocean. 51 52 53 INCLUDE "YOMCST.h" 60 ! This subroutine will make a call to ocean_XXX_noice according to the ocean mode (force, 61 ! slab or couple). The calculations of albedo and rugosity for the ocean surface are 62 ! done in here because they are identical for the different modes of ocean. 63 64 65 54 66 55 67 include "clesphys.h" … … 142 154 143 155 REAL, intent(out):: tkt(:) ! (knon) 144 ! épaisseur (m) de la couche de diffusion thermique (microlayer)156 ! �paisseur (m) de la couche de diffusion thermique (microlayer) 145 157 ! cool skin thickness 146 158 147 159 REAL, intent(out):: tks(:) ! (knon) 148 ! épaisseur (m) de la couche de diffusion de masse (microlayer)160 ! �paisseur (m) de la couche de diffusion de masse (microlayer) 149 161 150 162 REAL, intent(out):: taur(:) ! (knon)
Note: See TracChangeset
for help on using the changeset viewer.