Changeset 8373 for branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

Timestamp:

2017-07-25T19:44:54+02:00 (7 years ago)

Author:

clem

Message:

remove most of wrk_alloc

File:

• branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90 (modified) (2 diffs)

branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90

@@ -249 +249 @@
        !!-------------------------------------------------------------------
 
-       INTEGER, POINTER, DIMENSION(:)      :: indxi             ! compressed indices for cells with ice melting
-       INTEGER, POINTER, DIMENSION(:)      :: indxj             !
-
-       REAL(wp), POINTER, DIMENSION(:,:)   :: zwfx_mlw          ! available meltwater for melt ponding
-       REAL(wp), POINTER, DIMENSION(:,:,:) :: zrfrac            ! fraction of available meltwater retained for melt ponding
-
-       REAL(wp), PARAMETER                 :: zrmin  = 0.15_wp  ! minimum fraction of available meltwater retained for melt ponding
-       REAL(wp), PARAMETER                 :: zrmax  = 0.70_wp  ! maximum   ''           ''       ''        ''            ''
-       REAL(wp), PARAMETER                 :: zrexp  = 0.01_wp  ! rate constant to refreeze melt ponds
-       REAL(wp), PARAMETER                 :: zpnd_aspect = 0.8_wp ! pond aspect ratio
-
-       REAL(wp)                            :: zhi               ! dummy ice thickness
-       REAL(wp)                            :: zhs               ! dummy snow depth
-       REAL(wp)                            :: zTp               ! reference temperature
-       REAL(wp)                            :: zdTs              ! dummy temperature difference
-       REAL(wp)                            :: z1_rhofw          ! inverse freshwater density
-       REAL(wp)                            :: z1_zpnd_aspect    ! inverse pond aspect ratio
-       REAL(wp)                            :: zvpold            ! dummy pond volume
-
-       INTEGER                             :: ji, jj, jl, ij    ! loop indices
-       INTEGER                             :: icells            ! size of dummy array
-
+       INTEGER, DIMENSION(jpij)         :: indxi             ! compressed indices for cells with ice melting
+       INTEGER, DIMENSION(jpij)         :: indxj             !
+
+       REAL(wp), DIMENSION(jpi,jpj)     :: zwfx_mlw          ! available meltwater for melt ponding
+       REAL(wp), DIMENSION(jpi,jpj,jpl) :: zrfrac            ! fraction of available meltwater retained for melt ponding
+
+       REAL(wp), PARAMETER :: zrmin  = 0.15_wp  ! minimum fraction of available meltwater retained for melt ponding
+       REAL(wp), PARAMETER :: zrmax  = 0.70_wp  ! maximum   ''           ''       ''        ''            ''
+       REAL(wp), PARAMETER :: zrexp  = 0.01_wp  ! rate constant to refreeze melt ponds
+       REAL(wp), PARAMETER :: zpnd_aspect = 0.8_wp ! pond aspect ratio
+
+       REAL(wp) :: zhi               ! dummy ice thickness
+       REAL(wp) :: zhs               ! dummy snow depth
+       REAL(wp) :: zTp               ! reference temperature
+       REAL(wp) :: zdTs              ! dummy temperature difference
+       REAL(wp) :: z1_rhofw          ! inverse freshwater density
+       REAL(wp) :: z1_zpnd_aspect    ! inverse pond aspect ratio
+       REAL(wp) :: zvpold            ! dummy pond volume
+
+       INTEGER  :: ji, jj, jl, ij    ! loop indices
+       INTEGER  :: icells            ! size of dummy array
        !!-------------------------------------------------------------------
-
-        CALL wrk_alloc( jpi*jpj, indxi, indxj)
-        CALL wrk_alloc( jpi,jpj,     zwfx_mlw )
-        CALL wrk_alloc( jpi,jpj,jpl, zrfrac   )
-
         z1_rhofw       = 1. / rhofw 
         z1_zpnd_aspect = 1. / zpnd_aspect
@@ -390 +384 @@
 
         ENDIF
-
-       CALL wrk_dealloc( jpi*jpj, indxi, indxj)
-       CALL wrk_dealloc( jpi,jpj,     zwfx_mlw )
-       CALL wrk_dealloc( jpi,jpj,jpl, zrfrac   )
 
    END SUBROUTINE lim_mp_cesm