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 3233 for branches – NEMO

Changeset 3233 for branches


Ignore:
Timestamp:
2011-12-21T13:00:08+01:00 (12 years ago)
Author:
agn
Message:

dev_NEMO_MERGE_2011: Specify ztrmyt as a pointer in NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90, remove whitespace

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

    r3160 r3233  
    1010   !!   'key_my_trc'                                               CFC tracers 
    1111   !!---------------------------------------------------------------------- 
    12    !! trc_sms_my_trc       : MY_TRC model main routine  
     12   !! trc_sms_my_trc       : MY_TRC model main routine 
    1313   !! trc_sms_my_trc_alloc : allocate arrays specific to MY_TRC sms 
    1414   !!---------------------------------------------------------------------- 
     
    2626 
    2727   ! Defined HERE the arrays specific to MY_TRC sms and ALLOCATE them in trc_sms_my_trc_alloc 
    28     
     28 
    2929   !!---------------------------------------------------------------------- 
    3030   !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    31    !! $Id$  
     31   !! $Id$ 
    3232   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
    3333   !!---------------------------------------------------------------------- 
     
    3636   SUBROUTINE trc_sms_my_trc( kt ) 
    3737      !!---------------------------------------------------------------------- 
    38       !!                     ***  trc_sms_my_trc  ***   
     38      !!                     ***  trc_sms_my_trc  *** 
    3939      !! 
    4040      !! ** Purpose :   main routine of MY_TRC model 
    4141      !! 
    42       !! ** Method  : -  
     42      !! ** Method  : - 
    4343      !!---------------------------------------------------------------------- 
    4444      ! 
    4545      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    4646      INTEGER ::   jn   ! dummy loop index 
    47       !!---------------------------------------------------------------------- 
     47      REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrmyt 
     48!!---------------------------------------------------------------------- 
    4849      ! 
    4950      IF( nn_timing == 1 )  CALL timing_start('trc_sms_my_trc') 
     
    5354      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 
    5455 
    55       IF( l_trdtrc )  CALL wrk_alloc( jpi, jpj, jpk, ztrmyt )  
    56        
     56      IF( l_trdtrc )  CALL wrk_alloc( jpi, jpj, jpk, ztrmyt ) 
     57 
    5758      WHERE( (glamt <= 170) .AND. (glamt >= 160) .AND. (gphit <= -74) .AND. (gphit >=-75.6) ) 
    5859        trn(:,:,1,jpmyt1) = 1._wp 
     
    6162      END WHERE 
    6263 
    63       WHERE( ((glamt <= -165) .OR. (glamt >= 160)) .AND. (gphit <= -76) .AND. (gphit >=-80))  
     64      WHERE( ((glamt <= -165) .OR. (glamt >= 160)) .AND. (gphit <= -76) .AND. (gphit >=-80)) 
    6465        trn(:,:,1,jpmyt2) = 1._wp 
    6566        trb(:,:,1,jpmyt2) = 1._wp 
     
    7273            CALL trd_mod_trc( ztrmyt, jn, jptra_trd_sms, kt )   ! save trends 
    7374          END DO 
    74           CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt )  
     75          CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt ) 
    7576      END IF 
    7677      ! 
Note: See TracChangeset for help on using the changeset viewer.