Changeset 7662

Timestamp:

2017-02-09T16:07:37+01:00 (7 years ago)

Author:

isabella

Message:

some other comments

File:

• branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

@@ -814 +814 @@
                       sbias_i(:,:,jk) = sbias_i(:,:,jk) + ( sbias_asm_stscale(:,:,jk) * zfrac1 * (1.0 - fbcoef_stscale(:,:)) )
                    ENDDO
-                   
                    tbias_i(:,:,:) =tbias_i(:,:,:)*tmask(:,:,:)
                    sbias_i(:,:,:) =sbias_i(:,:,:)*tmask(:,:,:)
-                   IF (lwp) WRITE(numout,*)  'SUM(tbias_i)' SUM(tbias_i)
                ENDIF
-
             ENDIF
  
@@ -971 +968 @@
             tsw(:,:,:,jp_sal) = tsb(:,:,:,jp_sal) - sbias_p(:,:,:) - sbias_i(:,:,:)
             IF ( ln_incpc_only ) THEN
-               IF (lwp) WRITE(numout,*) 'SUM(tbias_i) is' SUM(tbias_i) 'before to be added to tsw'
-               IF (lwp) WRITE(numout,*) 'SUM(sbias_i) is' SUM(sbias_i) 'before to be added to tsw'
+               IF(lwp) WRITE(numout,*) 'SUM(tbias_i) is', SUM(tbias_i), 'before to be added to tsw'
                IF(lwp) WRITE(numout,*) 'ln_incpc_only =', ln_incpc_only, 'tsw updated with IPC only and ln_dynhpg_imp = ',ln_dynhpg_imp
                tsw(:,:,:,jp_tem) = tsb(:,:,:,jp_tem) - tbias_i(:,:,:)
@@ -979 +975 @@
          ENDIF
       ENDIF
+
+     
 
       IF(lwp) WRITE(numout,*) 'dyn_bias( kt ) calculating rhd_pc, kt =', kt