Changeset 15440 for NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/ICE/iceupdate.F90

Timestamp:

2021-10-23T12:18:24+02:00 (3 years ago)

Author:

cetlod

Message:

dev_PISCO : merge with trunk@15439

File:

• NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/ICE/iceupdate.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14383_PISCES_NEWDEV_PISCO/src/ICE/iceupdate.F90

@@ -92 +92 @@
       INTEGER  ::   ji, jj, jl, jk   ! dummy loop indices
       REAL(wp) ::   zqsr             ! New solar flux received by the ocean
-      REAL(wp), DIMENSION(jpi,jpj) ::   z2d                  ! 2D workspace
+      REAL(wp), ALLOCATABLE, DIMENSION(:,:) ::   z2d                  ! 2D workspace
       !!---------------------------------------------------------------------
       IF( ln_timing )   CALL timing_start('iceupdate')
@@ -239 +239 @@
 
       IF ( iom_use( 'vfxthin' ) ) THEN   ! mass flux from ice growth in open water + thin ice (<20cm) => comparable to observations
+         ALLOCATE( z2d(jpi,jpj) )
          WHERE( hm_i(:,:) < 0.2 .AND. hm_i(:,:) > 0. ) ; z2d = wfx_bog
          ELSEWHERE                                     ; z2d = 0._wp
          END WHERE
          CALL iom_put( 'vfxthin', wfx_opw + z2d )
+         DEALLOCATE( z2d )
       ENDIF