Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_lac_2.F90
r2715 r3294 15 15 USE limistate_2 16 16 USE lib_mpp ! MPP library 17 USE wrk_nemo ! work arrays 17 18 18 19 IMPLICIT NONE … … 68 69 !! 2.0 ! 02-08 (C. Ethe, G. Madec) F90, mpp 69 70 !!------------------------------------------------------------------- 70 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released71 USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_3, wrk_1d_4, wrk_1d_5, wrk_1d_672 !73 71 INTEGER , INTENT(IN):: & 74 72 kideb , & ! start point on which the the computation is applied … … 81 79 iiceform , & ! 1 = ice formed ; 0 = no ice formed 82 80 ihemis ! dummy indice 83 REAL(wp), POINTER, DIMENSION(:) :: & 84 zqbgow , & ! heat budget of the open water (negative) 85 zfrl_old , & ! previous sea/ice fraction 86 zhice_old , & ! previous ice thickness 87 zhice0 , & ! thickness of newly formed ice in leads 88 zfrlmin , & ! minimum fraction for leads 89 zdhicbot ! part of thickness of newly formed ice in leads which 81 REAL(wp), POINTER, DIMENSION(:) :: zqbgow ! heat budget of the open water (negative) 82 REAL(wp), POINTER, DIMENSION(:) :: zfrl_old ! previous sea/ice fraction 83 REAL(wp), POINTER, DIMENSION(:) :: zhice_old ! previous ice thickness 84 REAL(wp), POINTER, DIMENSION(:) :: zhice0 ! thickness of newly formed ice in leads 85 REAL(wp), POINTER, DIMENSION(:) :: zfrlmin ! minimum fraction for leads 86 REAL(wp), POINTER, DIMENSION(:) :: zdhicbot ! part of thickness of newly formed ice in leads which 90 87 ! has been already used in transport for example 91 88 REAL(wp) :: & … … 104 101 !!--------------------------------------------------------------------- 105 102 106 IF( wrk_in_use(1, 1,2,3,4,5,6) ) THEN 107 CALL ctl_stop('lim_thd_lac_2 : requestead workspace arrays unavailable') ; RETURN 108 ENDIF 109 ! Set-up pointers to sub-arrays of workspace arrays 110 zqbgow => wrk_1d_1(1:jpij) 111 zfrl_old => wrk_1d_2(1:jpij) 112 zhice_old => wrk_1d_3(1:jpij) 113 zhice0 => wrk_1d_4(1:jpij) 114 zfrlmin => wrk_1d_5(1:jpij) 115 zdhicbot => wrk_1d_6(1:jpij) 103 CALL wrk_alloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot ) 116 104 117 105 !-------------------------------------------------------------- … … 232 220 END DO 233 221 234 IF( wrk_not_released(1, 1,2,3,4,5,6) ) CALL ctl_stop('lim_thd_lac_2 : failed to release workspace arrays.')222 CALL wrk_dealloc( jpij, zqbgow, zfrl_old, zhice_old, zhice0, zfrlmin, zdhicbot ) 235 223 ! 236 224 END SUBROUTINE lim_thd_lac_2
Note: See TracChangeset
for help on using the changeset viewer.