- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90
r7646 r7910 23 23 USE in_out_manager ! I/O manager 24 24 USE lib_mpp ! MPP library 25 USE wrk_nemo ! work arrays26 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 27 26 … … 89 88 REAL(wp) :: zsstK ! SST in Kelvin 90 89 91 REAL(wp), POINTER, DIMENSION(:) :: zqprec ! energy of fallen snow (J.m-3)92 REAL(wp), POINTER, DIMENSION(:) :: zq_su ! heat for surface ablation (J.m-2)93 REAL(wp), POINTER, DIMENSION(:) :: zq_bo ! heat for bottom ablation (J.m-2)94 REAL(wp), POINTER, DIMENSION(:) :: zq_rema ! remaining heat at the end of the routine (J.m-2)95 REAL(wp), POINTER, DIMENSION(:) :: zf_tt ! Heat budget to determine melting or freezing(W.m-2)96 REAL(wp), POINTER, DIMENSION(:) :: zevap_rema ! remaining mass flux from sublimation (kg.m-2)97 98 REAL(wp), POINTER, DIMENSION(:) :: zdh_s_mel ! snow melt99 REAL(wp), POINTER, DIMENSION(:) :: zdh_s_pre ! snow precipitation100 REAL(wp), POINTER, DIMENSION(:) :: zdh_s_sub ! snow sublimation101 102 REAL(wp), POINTER, DIMENSION(:,:) :: zdeltah103 REAL(wp), POINTER, DIMENSION(:,:) :: zh_i ! ice layer thickness104 INTEGER , POINTER, DIMENSION(:,:) :: icount ! number of layers vanished by melting105 106 REAL(wp), POINTER, DIMENSION(:) :: zqh_i ! total ice heat content (J.m-2)107 REAL(wp), POINTER, DIMENSION(:) :: zsnw ! distribution of snow after wind blowing90 REAL(wp), DIMENSION(jpij) :: zqprec ! energy of fallen snow (J.m-3) 91 REAL(wp), DIMENSION(jpij) :: zq_su ! heat for surface ablation (J.m-2) 92 REAL(wp), DIMENSION(jpij) :: zq_bo ! heat for bottom ablation (J.m-2) 93 REAL(wp), DIMENSION(jpij) :: zq_rema ! remaining heat at the end of the routine (J.m-2) 94 REAL(wp), DIMENSION(jpij) :: zf_tt ! Heat budget to determine melting or freezing(W.m-2) 95 REAL(wp), DIMENSION(jpij) :: zevap_rema ! remaining mass flux from sublimation (kg.m-2) 96 97 REAL(wp), DIMENSION(jpij) :: zdh_s_mel ! snow melt 98 REAL(wp), DIMENSION(jpij) :: zdh_s_pre ! snow precipitation 99 REAL(wp), DIMENSION(jpij) :: zdh_s_sub ! snow sublimation 100 101 REAL(wp), DIMENSION(jpij,nlay_i) :: zdeltah 102 REAL(wp), DIMENSION(jpij,nlay_i) :: zh_i ! ice layer thickness 103 INTEGER , DIMENSION(jpij,nlay_i) :: icount ! number of layers vanished by melting 104 105 REAL(wp), DIMENSION(jpij) :: zqh_i ! total ice heat content (J.m-2) 106 REAL(wp), DIMENSION(jpij) :: zsnw ! distribution of snow after wind blowing 108 107 109 108 REAL(wp) :: zswitch_sal … … 120 119 END SELECT 121 120 122 CALL wrk_alloc( jpij, zqprec, zq_su, zq_bo, zf_tt, zq_rema, zsnw, zevap_rema )123 CALL wrk_alloc( jpij, zdh_s_mel, zdh_s_pre, zdh_s_sub, zqh_i )124 CALL wrk_alloc( jpij, nlay_i, zdeltah, zh_i )125 CALL wrk_alloc( jpij, nlay_i, icount )126 121 127 122 zqprec (:) = 0._wp ; zq_su (:) = 0._wp ; zq_bo (:) = 0._wp ; zf_tt(:) = 0._wp … … 681 676 WHERE( ht_i_1d == 0._wp ) a_i_1d = 0._wp 682 677 683 CALL wrk_dealloc( jpij, zqprec, zq_su, zq_bo, zf_tt, zq_rema, zsnw, zevap_rema )684 CALL wrk_dealloc( jpij, zdh_s_mel, zdh_s_pre, zdh_s_sub, zqh_i )685 CALL wrk_dealloc( jpij, nlay_i, zdeltah, zh_i )686 CALL wrk_dealloc( jpij, nlay_i, icount )687 678 ! 688 679 !
Note: See TracChangeset
for help on using the changeset viewer.