Changeset 3147 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC

Timestamp:

2011-11-17T17:28:03+01:00 (13 years ago)

Author:

cetlod

Message:

branch dev_NEMO_MERGE_2011:New dynamical allocation for TOP

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90 (modified) (4 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

@@ -18 +18 @@
    USE trdmod_oce
    USE trdmod_trc
+   USE wrk_nemo_2      ! Memory allocation
 
    IMPLICIT NONE
@@ -42 +43 @@
       !! ** Method  : - 
       !!----------------------------------------------------------------------
-      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
-      USE wrk_nemo, ONLY:   ztrmyt => wrk_3d_1   ! used for lobster sms trends
       !
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
@@ -53 +52 @@
       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
 
+      IF( l_trdtrc )  CALL wrk_alloc( jpi, jpj, jpk, ztrmyt ) 
+      
       WHERE( (glamt <= 170) .AND. (glamt >= 160) .AND. (gphit <= -74) .AND. (gphit >=-75.6) )
         trn(:,:,1,jpmyt1) = 1._wp
@@ -70 +71 @@
             CALL trd_mod_trc( ztrmyt, jn, jptra_trd_sms, kt )   ! save trends
           END DO
+          CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt ) 
       END IF
       !