Changeset 15487 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_bias.F90

Timestamp:

2021-11-09T16:27:42+01:00 (3 years ago)

Author:

dford

Message:

Remove some comments and add some spaces.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_bias.F90 (modified) (7 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_bias.F90

@@ -115 +115 @@
       ENDIF
       
-      IF(lwp)WRITE(numout,*) 
-      IF(lwp)WRITE(numout,*) 'obs_app_bias : '
-      IF(lwp)WRITE(numout,*) '----------------- '
+      IF (lwp) WRITE(numout,*) 
+      IF (lwp) WRITE(numout,*) 'obs_app_bias : '
+      IF (lwp) WRITE(numout,*) '----------------- '
       IF ( ll_extvar ) THEN
-         IF(lwp)WRITE(numout,*) 'Read observation bias for ', TRIM(obsdata%cextvars(kvar))
+         IF (lwp) WRITE(numout,*) 'Read observation bias for ', TRIM(obsdata%cextvars(kvar))
       ELSE
-         IF(lwp)WRITE(numout,*) 'Read observation bias for ', TRIM(obsdata%cvars(kvar))
+         IF (lwp) WRITE(numout,*) 'Read observation bias for ', TRIM(obsdata%cvars(kvar))
       ENDIF
 
       ! Open and read the files
-      z_obsbias(:,:,:)=0.0_wp
+      z_obsbias(:,:,:) = 0.0_wp
       DO jtype = 1, knumtypes
      
-         numobsbias=0
-         IF(lwp)WRITE(numout,*) 'Opening ',cl_bias_files(jtype)
+         numobsbias = 0
+         IF (lwp) WRITE(numout,*) 'Opening ', cl_bias_files(jtype)
          CALL iom_open( cl_bias_files(jtype), numobsbias, ldstop=.FALSE. )       
          IF (numobsbias > 0) THEN
@@ -138 +138 @@
                !so have to use NETCDF
                !routines directly - should be upgraded in the future
-               iret=NF90_OPEN(TRIM(cl_bias_files(jtype)), NF90_NOWRITE, incfile)
+               iret = NF90_OPEN(TRIM(cl_bias_files(jtype)), NF90_NOWRITE, incfile)
                IF ( .NOT. ll_extvar ) THEN
                   iret=NF90_GET_ATT( incfile, NF90_GLOBAL, TRIM(obsdata%cvars(kvar))//"_source", &
@@ -144 +144 @@
                   ibiastypes(jtype) = ifile_source
                ENDIF
-               iret=NF90_CLOSE(incfile)
+               iret = NF90_CLOSE(incfile)
                IF ( iret /= 0  ) CALL ctl_stop( &
                   'obs_app_bias : Cannot read bias type from file '// &
@@ -196 +196 @@
             & zmask_tmp(2,2,inumtype), &
             & zbias( 2,2,inumtype ) )
-         jt=1
+         jt = 1
          DO jobs = 1, obsdata%nsurf 
             IF ( obsdata%ntyp(jobs) == ibiastypes(jtype) ) THEN
@@ -211 +211 @@
                &           igrdi_tmp(:,:,:), igrdj_tmp(:,:,:), &
                &           z_obsbias(:,:,jtype), zbias(:,:,:) )
-         jt=1
+         jt = 1
          DO jobs = 1, obsdata%nsurf
             IF ( ( obsdata%ntyp(jobs) == ibiastypes(jtype) ) .OR. &
@@ -230 +230 @@
                   obsdata%robs(jobs,kvar) = obsdata%robs(jobs,kvar) - zext(1)
                ENDIF
-               jt=jt+1
+               jt = jt + 1
             ENDIF
          END DO 
@@ -254 +254 @@
          WRITE(numout,*) "Bias correction applied successfully"
          IF ( .NOT. ll_extvar ) THEN
-            WRITE(numout,*) "Obs types: ",ibiastypes(:), &
-                                 " Have all been bias corrected"
+            WRITE(numout,*) "Obs types: ", ibiastypes(:), &
+               &            " Have all been bias corrected"
          ENDIF
       ENDIF