New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90 – NEMO

Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (13 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcsms_lobster.F90

    r2528 r2715  
    1313   !!   trcsms_lobster        :  Time loop of passive tracers sms 
    1414   !!---------------------------------------------------------------------- 
    15    USE oce_trc         ! 
     15   USE oce_trc          ! 
    1616   USE trc 
    1717   USE trcbio 
     
    3232   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    3333   !! $Id$  
    34    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
     34   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3535   !!---------------------------------------------------------------------- 
    36  
    3736CONTAINS 
    3837 
     
    4544      !! 
    4645      !! ** Method  : - ??? 
    47       !! ------------------------------------------------------------------------------------- 
     46      !! -------------------------------------------------------------------- 
     47      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
     48      USE wrk_nemo, ONLY: ztrlob => wrk_3d_1   ! used for lobster sms trends 
     49      !! 
    4850      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index       
    4951      INTEGER :: jn 
    50       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   ztrlob   ! used for lobster sms trends 
    51       !! 
     52      !! -------------------------------------------------------------------- 
     53 
     54      IF( wrk_in_use(3, 1) ) THEN 
     55         CALL ctl_stop('trc_sms_lobster : requested workspace array unavailable')   ;   RETURN 
     56      ENDIF 
    5257 
    5358      CALL trc_opt( kt )      ! optical model 
     
    6570      IF( lk_trdmld_trc )  CALL trd_mld_bio( kt )   ! trends: Mixed-layer 
    6671 
     72      IF( wrk_not_released(3, 1) )   CALL ctl_stop('trc_sms_lobster : failed to release workspace array.') 
     73      ! 
    6774   END SUBROUTINE trc_sms_lobster 
    6875 
Note: See TracChangeset for help on using the changeset viewer.