- Timestamp:
- 2016-02-19T17:15:08+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_pcbias/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90
r6328 r6337 539 539 ztsday = rday / real(rdt) 540 540 541 IF( l k_asminc ) THEN ! nudge in increments and decay historical contribution541 IF( ln_asmiau .and. ln_trainc ) THEN ! nudge in increments and decay historical contribution 542 542 543 543 … … 569 569 ENDDO 570 570 571 IF ( ln_trainc .and..not.ln_bsyncro ) THEN571 IF ( .not.ln_bsyncro ) THEN 572 572 IF ( kt == nn_bias_itwrt ) THEN 573 573 DO jk = 1, jpkm1 … … 653 653 END DO 654 654 655 IF( l k_asminc.and. ln_trainc .and. .not.ln_bsyncro ) THEN656 ! if last outer loop (l k_asminc=true and ln_trainc=true). t/sbias_asm655 IF( ln_asmiau .and. ln_trainc .and. .not.ln_bsyncro ) THEN 656 ! if last outer loop (ln_asmiau=true and ln_trainc=true). t/sbias_asm 657 657 ! is updated, only once (end of run) taking into account units. 658 658 IF ( kt == nn_bias_itwrt ) THEN
Note: See TracChangeset
for help on using the changeset viewer.