Changeset 7771 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2017-03-09T11:38:31+01:00 (7 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r6486 r7771 53 53 INTEGER, INTENT( in ) :: kt ! ocean time-step 54 54 CHARACTER (len=22) :: charout 55 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrtrd55 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztrtrd 56 56 !!---------------------------------------------------------------------- 57 57 ! … … 64 64 65 65 IF( l_trdtrc ) THEN 66 CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrtrd) ! temporary save of trends66 ALLOCATE(ztrtrd( 1:jpi, 1:jpj, 1:jpk, 1:jptra )) ! temporary save of trends 67 67 ztrtrd(:,:,:,:) = tra(:,:,:,:) 68 68 ENDIF … … 95 95 CALL trd_tra( kt, 'TRC', jn, jptra_bbl, ztrtrd(:,:,:,jn) ) 96 96 END DO 97 CALL wrk_dealloc( jpi, jpj, jpk, jptra,ztrtrd ) ! temporary save of trends97 DEALLOCATE(ztrtrd ) ! temporary save of trends 98 98 ENDIF 99 99 ! -
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/TRP/trcldf.F90
r6498 r7771 59 59 REAL(wp) :: zdep 60 60 CHARACTER (len=22) :: charout 61 REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztrtrd61 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:,:) :: ztrtrd 62 62 !!---------------------------------------------------------------------- 63 63 ! … … 81 81 ! 82 82 IF( l_trdtrc ) THEN 83 CALL wrk_alloc( jpi, jpj, jpk, jptra, ztrtrd)83 ALLOCATE( ztrtrd ( 1:jpi, 1:jpj, 1:jpk, 1:jptra) ) 84 84 ztrtrd(:,:,:,:) = tra(:,:,:,:) 85 85 ENDIF … … 120 120 CALL trd_tra( kt, 'TRC', jn, jptra_ldf, ztrtrd(:,:,:,jn) ) 121 121 END DO 122 CALL wrk_dealloc( jpi, jpj, jpk, jptra,ztrtrd )122 DEALLOCATE( ztrtrd ) 123 123 ENDIF 124 124 ! ! print mean trends (used for debugging)
Note: See TracChangeset
for help on using the changeset viewer.