Changeset 4013 for LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90
- Timestamp:
- Nov 19, 2021, 4:58:59 PM (3 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/surf_ocean_mod.F90
r3797 r4013 56 56 REAL, DIMENSION(klon), INTENT(IN) :: rmu0 57 57 REAL, DIMENSION(klon), INTENT(IN) :: fder 58 REAL, INTENT(IN):: tsurf_in(klon)! defined only for subscripts 1:knon58 REAL, DIMENSION(klon), INTENT(IN) :: tsurf_in ! defined only for subscripts 1:knon 59 59 REAL, DIMENSION(klon), INTENT(IN) :: p1lay,z1lay ! pression (Pa) et altitude (m) du premier niveau 60 60 REAL, DIMENSION(klon), INTENT(IN) :: cdragh … … 74 74 REAL, DIMENSION(klon), INTENT(INOUT) :: qsurf 75 75 REAL, DIMENSION(klon), INTENT(INOUT) :: agesno 76 REAL, DIMENSION(klon), INTENT(inOUT) :: z0h76 REAL, DIMENSION(klon), INTENT(inOUT) :: z0h 77 77 78 78 REAL, intent(inout):: delta_sst(:) ! (knon) … … 98 98 REAL, DIMENSION(klon), INTENT(OUT) :: z0m 99 99 !albedo SB >>> 100 ! REAL, DIMENSION(klon), INTENT(OUT) 101 ! REAL, DIMENSION(klon), INTENT(OUT) 102 REAL, DIMENSION(6), INTENT(IN) :: SFRWL103 REAL, DIMENSION(klon,nsw), INTENT(OUT) 100 ! REAL, DIMENSION(klon), INTENT(OUT) :: alb1_new ! new albedo in visible SW interval 101 ! REAL, DIMENSION(klon), INTENT(OUT) :: alb2_new ! new albedo in near IR interval 102 REAL, DIMENSION(6), INTENT(IN) :: SFRWL 103 REAL, DIMENSION(klon,nsw), INTENT(OUT) :: alb_dir_new,alb_dif_new 104 104 !albedo SB <<< 105 105 REAL, DIMENSION(klon), INTENT(OUT) :: evap, fluxsens, fluxlat 106 REAL, INTENT(OUT):: tsurf_new(klon)! sea surface temperature, in K106 REAL, DIMENSION(klon), INTENT(OUT) :: tsurf_new ! sea surface temperature, in K 107 107 REAL, DIMENSION(klon), INTENT(OUT) :: dflux_s, dflux_l 108 108 REAL, DIMENSION(klon), INTENT(OUT) :: lmt_bils
Note: See TracChangeset
for help on using the changeset viewer.