Changeset 3152 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

Timestamp:

2011-11-18T10:19:26+01:00 (12 years ago)

Author:

smasson

Message:

dev_NEMO_MERGE_2011: new dynamical allocation in IOM and SBC

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90 (modified) (5 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

@@ -20 +20 @@
    USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distribued memory computing library
+   USE wrk_nemo_2      ! work arrays
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE prtctl          ! Print control
@@ -283 +284 @@
       !!
       !!----------------------------------------------------------------------
-      !!
-
       USE sbcblk_core, ONLY: turb_core_2z ! For wave coupling and Tair/rh from 2 to 10m
-      USE wrk_nemo, ONLY:  wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:  rspeed     => wrk_2d_1
-      USE wrk_nemo, ONLY:  sh10now    => wrk_2d_2
-      USE wrk_nemo, ONLY:  t10now     => wrk_2d_3
-      USE wrk_nemo, ONLY:  cdx        => wrk_2d_4   ! --- drag coeff.
-      USE wrk_nemo, ONLY:  ce         => wrk_2d_5   ! --- turbulent exchange coefficients
-      USE wrk_nemo, ONLY:  shms       => wrk_2d_6
-      USE wrk_nemo, ONLY:  rhom       => wrk_2d_7
-      USE wrk_nemo, ONLY:  sstk       => wrk_2d_8
-      USE wrk_nemo, ONLY:  ch         => wrk_2d_10
-      USE wrk_nemo, ONLY:  rel_windu  => wrk_2d_11
-      USE wrk_nemo, ONLY:  rel_windv  => wrk_2d_12
 
       REAL(wp), INTENT(in   ) :: hour
@@ -310 +297 @@
       REAL(wp)  :: esre, cseep
 
+      REAL(wp), DIMENSION (:,:), POINTER ::   rspeed, sh10now, t10now, cdx, ce, shms
+      REAL(wp), DIMENSION (:,:), POINTER ::   rhom, sstk, ch, rel_windu, rel_windv
       !!----------------------------------------------------------------------
       !!     coefficients ( in MKS )  :
@@ -336 +325 @@
       INTEGER :: kku                        !index varing with wind speed
 
-      ! Set-up access to workspace arrays
-      IF( wrk_in_use(2, 1,2,3,4,5,6,7,8,10,11,12) ) THEN
-         CALL ctl_stop('blk_mfs: requested workspace arrays unavailable')   ;   RETURN
-      END IF
+      CALL wrk_alloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms )
+      CALL wrk_alloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv )
 
       !!----------------------------------------------------------------------
@@ -501 +488 @@
        tauy(:,:)= rhom(:,:) * cdx(:,:) * rspeed(:,:) * rel_windv(:,:)
 
-
-      IF( wrk_not_released(2, 1,2,3,4,5,6,7,8,10,11,12) )    &
-         CALL ctl_stop('fluxes_mfs: failed to release workspace arrays')
-
+      CALL wrk_dealloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms )
+      CALL wrk_dealloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv )
 
    END SUBROUTINE fluxes_mfs