Changeset 6809
- Timestamp:
- 2016-07-19T16:30:01+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90
r6802 r6809 63 63 REAL(wp),SAVE, ALLOCATABLE, DIMENSION(:,:,:) :: en_tavg 64 64 #endif 65 REAL(wp),SAVE, ALLOCATABLE, DIMENSION(:,:) :: sshn_tavg , gcx_tavg65 REAL(wp),SAVE, ALLOCATABLE, DIMENSION(:,:) :: sshn_tavg 66 66 REAL(wp),SAVE :: numtimes_tavg ! No of times to average over 67 67 … … 123 123 ENDIF 124 124 sshn_tavg=0 125 #if defined key_zdftke 125 126 ALLOCATE( en_tavg(jpi,jpj,jpk), STAT=ierror ) 126 127 IF( ierror > 0 ) THEN … … 128 129 ENDIF 129 130 en_tavg=0 131 #endif 130 132 ALLOCATE( avt_tavg(jpi,jpj,jpk), STAT=ierror ) 131 133 IF( ierror > 0 ) THEN 132 134 CALL ctl_stop( 'asm_wri_bkg: unable to allocate avt_tavg' ) ; RETURN 133 135 ENDIF 134 ALLOCATE( gcx_tavg(jpi,jpj), STAT=ierror )135 IF( ierror > 0 ) THEN136 CALL ctl_stop( 'asm_wri_bkg: unable to allocate gcx_tavg' ) ; RETURN137 ENDIF138 gcx_tavg=0139 136 avt_tavg=0 140 137 … … 154 151 un_tavg(:,:,:) = un_tavg(:,:,:) + un(:,:,:) / numtimes_tavg 155 152 vn_tavg(:,:,:) = vn_tavg(:,:,:) + vn(:,:,:) / numtimes_tavg 156 ! gcx_tavg(:,:) = gcx_tavg(:,:) + gcx(:,:) / numtimes_tavg157 153 avt_tavg(:,:,:) = avt_tavg(:,:,:) + avt(:,:,:) / numtimes_tavg 158 154 #if defined key_zdftke … … 199 195 CALL iom_rstput( kt, nitavgbkg_r, inum, 'en' , en_tavg ) 200 196 #endif 201 CALL iom_rstput( kt, nitavgbkg_r, inum, 'gcx' , gcx_tavg)202 197 CALL iom_rstput( kt, nitavgbkg_r, inum, 'avt' , avt_tavg) 203 198 ! … … 223 218 CALL iom_rstput( kt, nitbkg_r, inum, 'en' , en ) 224 219 #endif 225 CALL iom_rstput( kt, nitbkg_r, inum, 'gcx' , gcx )226 220 CALL iom_rstput( kt, nitbkg_r, inum, 'avt' , avt ) 227 221 !
Note: See TracChangeset
for help on using the changeset viewer.