- Timestamp:
- 2004-12-22T16:43:16+01:00 (20 years ago)
- Location:
- trunk/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/bulk.F90
r106 r194 89 89 zsst(:,:) = gsst(:,:) / REAL( nfbulk ) * tmask(:,:,1) 90 90 zsss(:,:) = gsss(:,:) / REAL( nfbulk ) 91 CALL flx_blk( kt,zsst )91 CALL flx_blk( zsst ) 92 92 93 93 gsst(:,:) = 0. -
trunk/NEMO/OPA_SRC/SBC/flxblk.F90
r152 r194 77 77 CONTAINS 78 78 79 SUBROUTINE flx_blk( kt,psst )79 SUBROUTINE flx_blk( psst ) 80 80 !!--------------------------------------------------------------------------- 81 81 !! *** ROUTINE flx_blk *** … … 104 104 !!---------------------------------------------------------------------- 105 105 !! * Arguments 106 INTEGER , INTENT( in ) :: kt ! time step107 106 REAL(wp), INTENT( in ), DIMENSION(jpi,jpj) :: & 108 107 & psst ! Sea Surface Temperature … … 139 138 REAL(wp) :: & 140 139 zxday , & ! day of year 141 ztsec , & ! time in seconds142 140 zdist , & ! distance between the sun and the earth during the year 143 141 zdaycor , & ! corr. factor to take into account the variation of … … 316 314 ! compution of the day of the year at which the fluxes have to be calculate 317 315 !--The date corresponds to the middle of the time step. 318 ztsec = ( 2 * INT ( ( kt - 1 ) / nfbulk ) + 1 ) * rdtbs2 319 zxday = MOD( ztsec , raass ) / rday + 1.0 316 zxday=nday_year + rdtbs2/rday 320 317 321 318 iday = INT( zxday )
Note: See TracChangeset
for help on using the changeset viewer.