Changeset 27587
- Timestamp:
- 02/16/23 19:49:06 (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/run_semic_transient.f90
r27510 r27587 41 41 42 42 ! output data 43 double precision :: tsurf_out ! Ice surface Temperature [K]44 double precision :: smb_out ! surface mass balance=(Accu-Melt) [m/s]45 double precision :: smbi_out ! SMB ice [water equivalent m/s]46 double precision :: smbs_out ! SMB snow [water equivalent m/s]47 double precision :: saccu_out ! accumulation [m/s]48 double precision :: smelt_out ! ablation [m/s]49 double precision :: alb_out ! grid-averaged albedo [no unit]50 double precision :: alb_snow_out43 double precision, intent(out) :: tsurf_out ! Ice surface Temperature [K] 44 double precision, intent(out) :: smb_out ! surface mass balance=(Accu-Melt) [m/s] 45 double precision, intent(out) :: smbi_out ! SMB ice [water equivalent m/s] 46 double precision, intent(out) :: smbs_out ! SMB snow [water equivalent m/s] 47 double precision, intent(out) :: saccu_out ! accumulation [m/s] 48 double precision, intent(out) :: smelt_out ! ablation [m/s] 49 double precision, intent(out) :: alb_out ! grid-averaged albedo [no unit] 50 double precision, intent(out) :: alb_snow_out 51 51 double precision :: qmr_out 52 double precision :: hice_out 53 double precision :: hsnow_out 52 !double precision, intent(out) :: qmr_out 53 double precision, intent(out) :: hice_out 54 double precision, intent(out) :: hsnow_out 54 55 55 56 double precision :: total_time, start, finish
Note:
See TracChangeset
for help on using the changeset viewer.