Changeset 7292 for branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO
- Timestamp:
- 2016-11-21T14:57:48+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90
r7284 r7292 733 733 734 734 DO jk = 1, jpkm1 735 tbias_i(:,:,jk) = ( tbias_asm_stscale(:,:,jk) * zfrac * (1.0 - fbcoef_stscale(:,:) )736 sbias_i(:,:,jk) = ( sbias_asm_stscale(:,:,jk) * zfrac * (1.0 - fbcoef_stscale(:,:) )735 tbias_i(:,:,jk) = tbias_asm_stscale(:,:,jk) * zfrac * (1.0 - fbcoef_stscale(:,:)) 736 sbias_i(:,:,jk) = sbias_asm_stscale(:,:,jk) * zfrac * (1.0 - fbcoef_stscale(:,:)) 737 737 ENDDO 738 738 739 IF (lwp) THEN739 IF (lwp) THEN 740 740 WRITE(numout,*) 'tra_bias : bias weights' 741 741 WRITE(numout,*) '~~~~~~~~~~~~' 742 742 WRITE(numout,* ) "IPC - proportion of increments + historical pcbias applied ",zfrac 743 ENDIF743 ENDIF 744 744 745 745 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.