Changeset 14770 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90
- Timestamp:
- 2021-04-30T12:05:23+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/tests/ICE_ADV1D/MY_SRC/usrdef_sbc.F90
r13472 r14770 20 20 USE ice, ONLY : at_i_b, a_i_b 21 21 USE icethd_dh ! for CALL ice_thd_snwblow 22 USE sbc_phy, ONLY : pp_cldf 22 23 ! 23 24 USE in_out_manager ! I/O manager … … 26 27 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 28 29 28 30 IMPLICIT NONE 29 31 PRIVATE … … 118 120 emp_oce (:,:) = 0._wp ! uniform value for freshwater budget (E-P) 119 121 qsr_oce (:,:) = 0._wp ! uniform value for solar radiation 120 qns_oce (:,:) = 0._wp ! uniform value for non-solar radiation122 qns_oce (:,:) = 0._wp ! uniform value for non-solar heat flux 121 123 122 124 ! ice variables 123 125 alb_ice (:,:,:) = 0.7_wp ! useless 124 126 qsr_ice (:,:,:) = 0._wp ! uniform value for solar radiation 125 qns_ice (:,:,:) = 0._wp ! uniform value for non-solar radiation 127 qns_ice (:,:,:) = 0._wp ! uniform value for non-solar heat flux 128 dqns_ice(:,:,:) = 0._wp ! uniform value for non solar heat flux sensitivity for ice 126 129 sprecip (:,:) = 0._wp ! uniform value for snow precip 127 130 evap_ice(:,:,:) = 0._wp ! uniform value for sublimation
Note: See TracChangeset
for help on using the changeset viewer.