Changeset 7172


Ignore:
Timestamp:
2016-11-03T12:24:07+01:00 (4 years ago)
Author:
isabella
Message:

adding updates to variables tbias_asm_stscale, sbias_asm_stscale

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

    r7160 r7172  
    670670                        &                     ztfrac * t_asm_upd * s_bkginc(:,:,jk) * tmask(:,:,jk) 
    671671                     END DO 
     672 
     673                     IF (ln_incpc) THEN 
     674                        DO jk = 1, jpk 
     675                           tbias_asm_stscale(:,:,jk) = ( t_bkginc(:,:,jk) * zwgt * ztfrac ) + ( tbias_asm_stscale(:,:,jk) * zfrac1 ) 
     676                           sbias_asm_stscale(:,:,jk) = ( s_bkginc(:,:,jk) * zwgt * ztfrac ) + ( sbias_asm_stscale(:,:,jk) * zfrac1 ) 
     677                        ENDDO 
     678                     ENDIF 
    672679                  ENDIF 
    673680                
Note: See TracChangeset for help on using the changeset viewer.