- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r6487 r11101 275 275 ! 276 276 IF( sd(jf)%ln_tint ) THEN ! temporal interpolation 277 IF(lwp .AND. kt - nit000 <= 100) THEN277 IF(lwp .AND. nprint > 1 ) THEN 278 278 clfmt = "('fld_read: var ', a, ' kt = ', i8, ' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 279 279 & "', records b/a: ', i6.4, '/', i6.4, ' (days ', f9.4,'/', f9.4, ')')" … … 281 281 & sd(jf)%nrec_b(1), sd(jf)%nrec_a(1), REAL(sd(jf)%nrec_b(2),wp)/rday, REAL(sd(jf)%nrec_a(2),wp)/rday 282 282 WRITE(numout, *) 'it_offset is : ',it_offset 283 IF(lflush) CALL flush(numout) 283 284 ENDIF 284 285 ! temporal interpolation weights … … 288 289 sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 289 290 ELSE ! nothing to do... 290 IF(lwp .AND. kt - nit000 <= 100) THEN291 IF(lwp .AND. nprint > 1 ) THEN 291 292 clfmt = "('fld_read: var ', a, ' kt = ', i8,' (', f9.4,' days), Y/M/D = ', i4.4,'/', i2.2,'/', i2.2," // & 292 293 & "', record: ', i6.4, ' (days ', f9.4, ' <-> ', f9.4, ')')" 293 294 WRITE(numout, clfmt) TRIM(sd(jf)%clvar), kt, REAL(isecsbc,wp)/rday, nyear, nmonth, nday, & 294 295 & sd(jf)%nrec_a(1), REAL(sd(jf)%nrec_b(2),wp)/rday, REAL(sd(jf)%nrec_a(2),wp)/rday 296 IF(lflush) CALL flush(numout) 295 297 ENDIF 296 298 ENDIF … … 414 416 415 417 clfmt = "('fld_init : time-interpolation for ', a, ' read previous record = ', i6, ' at time = ', f7.2, ' days')" 416 IF(lwp) WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 418 IF(lwp .AND. nprint > 0) THEN 419 WRITE(numout, clfmt) TRIM(sdjf%clvar), sdjf%nrec_a(1), REAL(sdjf%nrec_a(2),wp)/rday 420 ENDIF 417 421 418 422 ENDIF … … 708 712 IF(lwp) WRITE(numout,*) 'Dim size for ',TRIM(clvar),' is ', ilendta 709 713 IF(lwp) WRITE(numout,*) 'Number of levels for ',TRIM(clvar),' is ', ipk 714 IF(lwp .AND. lflush) CALL flush(numout) 710 715 711 716 SELECT CASE( ipk ) … … 779 784 END DO 780 785 sd(ju)%rotn(jn) = .TRUE. ! vector was rotated 781 IF( lwp .AND. kt == nit000 ) WRITE(numout,*) & 786 IF( lwp .AND. kt == nit000 ) THEN 787 WRITE(numout,*) & 782 788 & 'fld_read: vector pair ('//TRIM(sd(ju)%clvar)//', '//TRIM(sd(iv)%clvar)//') rotated on to model grid' 789 IF(lflush) CALL flush(numout) 790 ENDIF 783 791 ENDIF 784 792 ENDIF … … 941 949 & ' data type: ' , sdf(jf)%cltype , & 942 950 & ' land/sea mask:' , TRIM( sdf(jf)%lsmname ) 943 call flush(numout)944 951 END DO 952 IF(lflush) CALL flush(numout) 945 953 ENDIF 946 954 … … 1000 1008 !!---------------------------------------------------------------------- 1001 1009 ! 1002 DO kw = 1, nxt_wgt-1 1003 WRITE(numout,*) 'weight file: ',TRIM(ref_wgts(kw)%wgtname) 1004 WRITE(numout,*) ' ddims: ',ref_wgts(kw)%ddims(1),ref_wgts(kw)%ddims(2) 1005 WRITE(numout,*) ' numwgt: ',ref_wgts(kw)%numwgt 1006 WRITE(numout,*) ' jpiwgt: ',ref_wgts(kw)%jpiwgt 1007 WRITE(numout,*) ' jpjwgt: ',ref_wgts(kw)%jpjwgt 1008 WRITE(numout,*) ' botleft: ',ref_wgts(kw)%botleft 1009 WRITE(numout,*) ' topright: ',ref_wgts(kw)%topright 1010 IF( ref_wgts(kw)%cyclic ) THEN 1011 WRITE(numout,*) ' cyclical' 1012 IF( ref_wgts(kw)%overlap > 0 ) WRITE(numout,*) ' with overlap of ', ref_wgts(kw)%overlap 1013 ELSE 1014 WRITE(numout,*) ' not cyclical' 1015 ENDIF 1016 IF( ASSOCIATED(ref_wgts(kw)%data_wgt) ) WRITE(numout,*) ' allocated' 1017 END DO 1010 IF(nprint > 0) THEN 1011 DO kw = 1, nxt_wgt-1 1012 WRITE(numout,*) 'weight file: ',TRIM(ref_wgts(kw)%wgtname) 1013 IF(nprint > 1) THEN 1014 WRITE(numout,*) ' ddims: ',ref_wgts(kw)%ddims(1),ref_wgts(kw)%ddims(2) 1015 WRITE(numout,*) ' numwgt: ',ref_wgts(kw)%numwgt 1016 WRITE(numout,*) ' jpiwgt: ',ref_wgts(kw)%jpiwgt 1017 WRITE(numout,*) ' jpjwgt: ',ref_wgts(kw)%jpjwgt 1018 WRITE(numout,*) ' botleft: ',ref_wgts(kw)%botleft 1019 WRITE(numout,*) ' topright: ',ref_wgts(kw)%topright 1020 IF( ref_wgts(kw)%cyclic ) THEN 1021 WRITE(numout,*) ' cyclical' 1022 IF( ref_wgts(kw)%overlap > 0 ) WRITE(numout,*) ' with overlap of ', ref_wgts(kw)%overlap 1023 ELSE 1024 WRITE(numout,*) ' not cyclical' 1025 ENDIF 1026 IF( ASSOCIATED(ref_wgts(kw)%data_wgt) ) WRITE(numout,*) ' allocated' 1027 ENDIF 1028 END DO 1029 1030 IF(lflush) CALL flush(numout) 1031 1032 ENDIF 1018 1033 ! 1019 1034 END SUBROUTINE wgt_print
Note: See TracChangeset
for help on using the changeset viewer.