Changeset 6043 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
- Timestamp:
- 2015-12-14T10:27:28+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90
r5600 r6043 32 32 PUBLIC fld_map ! routine called by tides_init 33 33 PUBLIC fld_read, fld_fill ! called by sbc... modules 34 PUBLIC fld_clopn 34 35 35 36 TYPE, PUBLIC :: FLD_N !: Namelist field informations … … 284 285 ztinta = REAL( isecsbc - sd(jf)%nrec_b(2), wp ) / REAL( sd(jf)%nrec_a(2) - sd(jf)%nrec_b(2), wp ) 285 286 ztintb = 1. - ztinta 286 !CDIR COLLAPSE287 287 sd(jf)%fnow(:,:,:) = ztintb * sd(jf)%fdta(:,:,:,1) + ztinta * sd(jf)%fdta(:,:,:,2) 288 288 ELSE ! nothing to do... … … 815 815 imonth = kmonth 816 816 iday = kday 817 IF ( sdjf%cltype(1:4) == 'week' ) THEN ! find the day of the beginning of the week 818 isec_week = ksec_week( sdjf%cltype(6:8) )- (86400 * 8 ) 819 llprevmth = isec_week > nsec_month ! longer time since beginning of the week than the month 820 llprevyr = llprevmth .AND. nmonth == 1 821 iyear = nyear - COUNT((/llprevyr /)) 822 imonth = nmonth - COUNT((/llprevmth/)) + 12 * COUNT((/llprevyr /)) 823 iday = nday + nmonth_len(nmonth-1) * COUNT((/llprevmth/)) - isec_week / NINT(rday) 824 ENDIF 817 825 ELSE ! use current day values 818 826 IF ( sdjf%cltype(1:4) == 'week' ) THEN ! find the day of the beginning of the week
Note: See TracChangeset
for help on using the changeset viewer.