Changeset 5274 for LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
- Timestamp:
- Oct 25, 2024, 3:41:23 PM (31 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90
r5273 r5274 37 37 USE infotrac_phy, ONLY : ntiso,niso 38 38 #endif 39 USE dimsoil_mod_h, ONLY: nsoilmx 40 41 ! 42 ! This subroutine will make a call to ocean_XXX_ice according to the ocean mode (force, 39 USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO & 40 , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA & 41 , R_ecc, R_peri, R_incl & 42 , RA, RG, R1SA & 43 , RSIGMA & 44 , R, RMD, RMV, RD, RV, RCPD & 45 , RMO3, RMCO2, RMC, RMCH4, RMN2O, RMCFC11, RMCFC12 & 46 , RCPV, RCVD, RCVV, RKAPPA, RETV, eps_w & 47 , RCW, RCS & 48 , RLVTT, RLSTT, RLMLT, RTT, RATM & 49 , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS & 50 , RALPD, RBETD, RGAMD 51 USE dimsoil_mod_h, ONLY: nsoilmx 52 53 ! 54 ! This subroutine will make a call to ocean_XXX_ice according to the ocean mode (force, 43 55 ! slab or couple). The calculation of rugosity for the sea-ice surface is also done 44 56 ! in here because it is the same calculation for the different modes of ocean. … … 46 58 INCLUDE "clesphys.h" 47 59 48 INCLUDE "YOMCST.h" 60 49 61 ! for rd and retv 50 62
Note: See TracChangeset
for help on using the changeset viewer.