Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r2715 r3294 22 22 USE in_out_manager ! I/O manager 23 23 USE prtctl ! Print control 24 USE wrk_nemo ! Memory Allocation 25 USE timing ! Timing 24 26 25 27 IMPLICIT NONE … … 71 73 INTEGER :: ji, jj, ik ! dummy loop indices 72 74 REAL(wp) :: zqgh_trd ! geothermal heat flux trend 73 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE:: ztrdt75 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdt 74 76 !!---------------------------------------------------------------------- 75 77 ! 78 IF( nn_timing == 1 ) CALL timing_start('tra_bbc') 79 ! 76 80 IF( l_trdtra ) THEN ! Save ta and sa trends 77 ALLOCATE( ztrdt(jpi,jpj,jpk) ) ; ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 81 CALL wrk_alloc( jpi, jpj, jpk, ztrdt ) 82 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) 78 83 ENDIF 79 84 ! … … 95 100 ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 96 101 CALL trd_tra( kt, 'TRA', jp_tem, jptra_trd_bbc, ztrdt ) 97 DEALLOCATE(ztrdt )102 CALL wrk_dealloc( jpi, jpj, jpk, ztrdt ) 98 103 ENDIF 99 104 ! 100 105 IF(ln_ctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 106 ! 107 IF( nn_timing == 1 ) CALL timing_stop('tra_bbc') 101 108 ! 102 109 END SUBROUTINE tra_bbc
Note: See TracChangeset
for help on using the changeset viewer.