New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7201 – NEMO

Changeset 7201


Ignore:
Timestamp:
2016-11-07T15:01:22+01:00 (7 years ago)
Author:
isabella
Message:

adding output in forecast

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r7187 r7201  
    759759               ENDIF 
    760760 
     761 
     762 
     763               IF (ln_incpc) THEN 
     764                   
     765                   DO jk = 1, jpkm1 
     766                      tbias_i(:,:,jk) = - ( tbias_asm_stscale(:,:,jk) * zfrac1 * (1.0 - fbcoef_stscale(:,:)) ) 
     767                      sbias_i(:,:,jk) = - ( sbias_asm_stscale(:,:,jk) * zfrac1 * (1.0 - fbcoef_stscale(:,:)) ) 
     768                   ENDDO 
     769 
     770                   IF ( kt == nn_bias_itwrt ) THEN 
     771                      DO jk = 1, jpk 
     772                         tbias_asm_stscale_out(:,:,jk) = ( tbias_asm_stscale(:,:,jk) * zfrac1 ) 
     773                         sbias_asm_stscale_out(:,:,jk) = ( sbias_asm_stscale(:,:,jk) * zfrac1 ) 
     774                      ENDDO 
     775                   ENDIF 
     776 
     777               ENDIF 
     778 
     779 
     780 
     781 
    761782            ENDIF 
    762783  
Note: See TracChangeset for help on using the changeset viewer.