- Timestamp:
- 2021-08-04T12:42:44+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/TRD/trddyn.F90
r15169 r15170 70 70 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: zue, zve ! temporary 2D arrays 71 71 INTEGER :: jk 72 LOGICAL, SAVE :: l_drgexp ! local logical to flag explicit friction73 72 !!---------------------------------------------------------------------- 74 73 ! … … 98 97 ! Add SPG trend to 3D HPG trend and also output as 2D diagnostic in own right. 99 98 CALL trd_dyn_iom_2d( putrd(:,:,1), pvtrd(:,:,1), jpdyn_spg, kt ) 100 putrd(:,:,:) = putrd(:,:,:) + zutrd_hpg(:,:,:) 101 pvtrd(:,:,:) = pvtrd(:,:,:) + zvtrd_hpg(:,:,:) 99 zutrd_hpg(:,:,:) = zutrd_hpg(:,:,:) + putrd(:,:,:) 100 zvtrd_hpg(:,:,:) = zvtrd_hpg(:,:,:) + pvtrd(:,:,:) 101 CALL trd_dyn_iom_3d( zvtrd_hpg, zvtrd_hpg, jpdyn_hpg, kt ) 102 102 DEALLOCATE( zutrd_hpg, zvtrd_hpg ) 103 103 … … 107 107 ! ZDF trend later and add to 3D TFR trend. 108 108 IF( .NOT. ALLOCATED(zutrd_tfre) ) THEN 109 ALLOCATE( zutrd_tfr (jpi,jpj,jpk), zvtrd_tfr(jpi,jpj,jpk) )109 ALLOCATE( zutrd_tfre(jpi,jpj,jpk), zvtrd_tfre(jpi,jpj,jpk) ) 110 110 zutrd_tfre(:,:,:) = putrd(:,:,:) 111 111 zvtrd_tfre(:,:,:) = pvtrd(:,:,:) … … 136 136 ! ZDF trend later and add to 3D BFR trend. 137 137 IF( .NOT. ALLOCATED(zutrd_bfre) ) THEN 138 ALLOCATE( zutrd_bfr (jpi,jpj,jpk), zvtrd_bfr(jpi,jpj,jpk) )138 ALLOCATE( zutrd_bfre(jpi,jpj,jpk), zvtrd_bfre(jpi,jpj,jpk) ) 139 139 zutrd_bfre(:,:,:) = putrd(:,:,:) 140 140 zvtrd_bfre(:,:,:) = pvtrd(:,:,:) … … 152 152 ! Add various bottom friction terms for baroclinic trend to saved quantity. 153 153 ! Any depth-mean component removed later when TFR trend written out. 154 l_drgexp = .false.155 154 IF( .NOT. ALLOCATED(zutrd_bfr) ) THEN 156 155 ALLOCATE( zutrd_bfr(jpi,jpj,jpk), zvtrd_bfr(jpi,jpj,jpk) )
Note: See TracChangeset
for help on using the changeset viewer.