- Timestamp:
- 2020-03-13T17:33:02+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90
r10120 r12555 256 256 READ ( numnam_cfg, nambias, IOSTAT = ios, ERR = 902 ) 257 257 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambias in configuration namelist', lwp ) 258 IF(lwm ) WRITE ( numond, nambias )258 IF(lwm .AND. nprint > 2) WRITE ( numond, nambias ) 259 259 260 260 … … 322 322 ! This doesn't work because nitiaufin hasn't been set yet (but the old code with rday/rdt was also wrong) 323 323 ! WRITE(numout,*) ' time step is = ',rdt,'you choose to write pcbias at nn_bias_itwrt = ',nn_bias_itwrt,'and end of iau is nitiaufin=',nitiaufin 324 IF(lflush) call flush(numout) 324 325 ENDIF 325 326 IF( .NOT. ln_bias ) RETURN … … 563 564 ENDWHERE 564 565 ENDIF 565 566 567 IF(lwp .AND. lflush) call flush(numout) 566 568 567 569 END SUBROUTINE bias_init … … 897 899 ENDIF 898 900 ENDIF 899 901 IF(lwp .AND. lflush) call flush(numout) 900 902 END SUBROUTINE tra_bias 901 903 … … 973 975 & rhd_pc, gru_pc , grv_pc ) 974 976 ENDIF 977 978 IF(lwp .AND. lflush) call flush(numout) 975 979 976 980 END SUBROUTINE dyn_bias … … 1007 1011 ENDIF 1008 1012 ! 1013 IF(lwp .AND. lflush) call flush(numout) 1014 1009 1015 END SUBROUTINE bias_opn 1010 1016
Note: See TracChangeset
for help on using the changeset viewer.