Changeset 27587


Ignore:
Timestamp:
02/16/23 19:49:06 (2 years ago)
Author:
inwoo
Message:

CHG: run_semic_transient.f90 - add more output.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/run_semic_transient.f90

    r27510 r27587  
    4141
    4242   ! 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_out 
     43   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 
    5151   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
    5455
    5556   double precision :: total_time, start, finish
Note: See TracChangeset for help on using the changeset viewer.