- Timestamp:
- 2011-12-21T13:00:08+01:00 (12 years ago)
- 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 10 10 !! 'key_my_trc' CFC tracers 11 11 !!---------------------------------------------------------------------- 12 !! trc_sms_my_trc : MY_TRC model main routine 12 !! trc_sms_my_trc : MY_TRC model main routine 13 13 !! trc_sms_my_trc_alloc : allocate arrays specific to MY_TRC sms 14 14 !!---------------------------------------------------------------------- … … 26 26 27 27 ! Defined HERE the arrays specific to MY_TRC sms and ALLOCATE them in trc_sms_my_trc_alloc 28 28 29 29 !!---------------------------------------------------------------------- 30 30 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 31 !! $Id$ 31 !! $Id$ 32 32 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 33 33 !!---------------------------------------------------------------------- … … 36 36 SUBROUTINE trc_sms_my_trc( kt ) 37 37 !!---------------------------------------------------------------------- 38 !! *** trc_sms_my_trc *** 38 !! *** trc_sms_my_trc *** 39 39 !! 40 40 !! ** Purpose : main routine of MY_TRC model 41 41 !! 42 !! ** Method : - 42 !! ** Method : - 43 43 !!---------------------------------------------------------------------- 44 44 ! 45 45 INTEGER, INTENT(in) :: kt ! ocean time-step index 46 46 INTEGER :: jn ! dummy loop index 47 !!---------------------------------------------------------------------- 47 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrmyt 48 !!---------------------------------------------------------------------- 48 49 ! 49 50 IF( nn_timing == 1 ) CALL timing_start('trc_sms_my_trc') … … 53 54 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 54 55 55 IF( l_trdtrc ) CALL wrk_alloc( jpi, jpj, jpk, ztrmyt ) 56 56 IF( l_trdtrc ) CALL wrk_alloc( jpi, jpj, jpk, ztrmyt ) 57 57 58 WHERE( (glamt <= 170) .AND. (glamt >= 160) .AND. (gphit <= -74) .AND. (gphit >=-75.6) ) 58 59 trn(:,:,1,jpmyt1) = 1._wp … … 61 62 END WHERE 62 63 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)) 64 65 trn(:,:,1,jpmyt2) = 1._wp 65 66 trb(:,:,1,jpmyt2) = 1._wp … … 72 73 CALL trd_mod_trc( ztrmyt, jn, jptra_trd_sms, kt ) ! save trends 73 74 END DO 74 CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt ) 75 CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt ) 75 76 END IF 76 77 !
Note: See TracChangeset
for help on using the changeset viewer.