Changeset 7476

Timestamp:

2016-12-08T11:11:29+01:00 (7 years ago)

Author:

kingr

Message:

Minor change from code reiew.

File:

• branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_25hr_mean_assim_bkg/NEMOGCM/NEMO/OPA_SRC/ASM/asmbkg.F90

@@ -102 +102 @@
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate tn_tavg' )   ;   RETURN
          ENDIF
-         tn_tavg=0
+         tn_tavg(:,:,:)=0
          ALLOCATE( sn_tavg(jpi,jpj,jpk), STAT=ierror )
          IF( ierror > 0 ) THEN
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate sn_tavg' )   ;   RETURN
          ENDIF
-         sn_tavg=0
+         sn_tavg(:,:,:)=0
          ALLOCATE( un_tavg(jpi,jpj,jpk), STAT=ierror )
          IF( ierror > 0 ) THEN
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate un_tavg' )   ;   RETURN
          ENDIF
-         un_tavg=0
+         un_tavg(:,:,:)=0
          ALLOCATE( vn_tavg(jpi,jpj,jpk), STAT=ierror )
          IF( ierror > 0 ) THEN
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate vn_tavg' )   ;   RETURN
          ENDIF
-         vn_tavg=0
+         vn_tavg(:,:,:)=0
          ALLOCATE( sshn_tavg(jpi,jpj), STAT=ierror )
          IF( ierror > 0 ) THEN
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate sshn_tavg' )   ;   RETURN
          ENDIF
-         sshn_tavg=0
+         sshn_tavg(:,:)=0
 #if defined key_zdftke
          ALLOCATE( en_tavg(jpi,jpj,jpk), STAT=ierror )
@@ -128 +128 @@
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate en_tavg' )   ;   RETURN
          ENDIF
-         en_tavg=0
+         en_tavg(:,:,:)=0
 #endif
          ALLOCATE( avt_tavg(jpi,jpj,jpk), STAT=ierror )
@@ -134 +134 @@
             CALL ctl_stop( 'asm_wri_bkg: unable to allocate avt_tavg' )   ;   RETURN
          ENDIF
-         avt_tavg=0
+         avt_tavg(:,:,:)=0
          
          numtimes_tavg = REAL ( nitavgbkg_r -  nn_it000 + 1 )