- Timestamp:
- 2020-11-27T17:26:33+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/tickets_icb_1900
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/tickets_icb_1900
- Property svn:externals
-
NEMO/branches/2020/tickets_icb_1900/src/OCE/OBS/obs_oper.F90
r12377 r13899 189 189 ! Initialize daily mean for first timestep of the day 190 190 IF ( idayend == 1 .OR. kt == 0 ) THEN 191 DO_3D _11_11(1, jpk )191 DO_3D( 1, 1, 1, 1, 1, jpk ) 192 192 prodatqc%vdmean(ji,jj,jk,1) = 0.0 193 193 prodatqc%vdmean(ji,jj,jk,2) = 0.0 … … 195 195 ENDIF 196 196 197 DO_3D _11_11(1, jpk )197 DO_3D( 1, 1, 1, 1, 1, jpk ) 198 198 ! Increment field 1 for computing daily mean 199 199 prodatqc%vdmean(ji,jj,jk,1) = prodatqc%vdmean(ji,jj,jk,1) & … … 209 209 IF (lwp) WRITE(numout,*) 'Calculating prodatqc%vdmean on time-step: ',kt 210 210 CALL FLUSH(numout) 211 DO_3D _11_11(1, jpk )211 DO_3D( 1, 1, 1, 1, 1, jpk ) 212 212 prodatqc%vdmean(ji,jj,jk,1) = prodatqc%vdmean(ji,jj,jk,1) & 213 213 & * zdaystp … … 750 750 ! Initialize night-time mean for first timestep of the day 751 751 IF ( idayend == 1 .OR. kt == 0 ) THEN 752 DO_2D _11_11752 DO_2D( 1, 1, 1, 1 ) 753 753 surfdataqc%vdmean(ji,jj) = 0.0 754 754 zmeanday(ji,jj) = 0.0 … … 761 761 imask_night(:,:) = INT( zouttmp(:,:) ) 762 762 763 DO_2D _11_11763 DO_2D( 1, 1, 1, 1 ) 764 764 ! Increment the temperature field for computing night mean and counter 765 765 surfdataqc%vdmean(ji,jj) = surfdataqc%vdmean(ji,jj) & … … 773 773 IF ( idayend == 0 ) THEN 774 774 IF (lwp) WRITE(numout,*) 'Calculating surfdataqc%vdmean on time-step: ',kt 775 DO_2D _11_11775 DO_2D( 1, 1, 1, 1 ) 776 776 ! Test if "no night" point 777 777 IF ( icount_night(ji,jj) > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.