Changeset 258 for trunk/NEMO/OPA_SRC/SBC/flxblk.F90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/flxblk.F90
r247 r258 24 24 USE lbclnk 25 25 USE albedo 26 USE prtctl ! Print control 26 27 27 28 IMPLICIT NONE … … 319 320 320 321 iday = INT( zxday ) 321 IF(l_ctl) WRITE(numout,*) ' declin : iday ', iday, ' nfbulk= ', nfbulk 322 323 IF(ln_ctl) CALL prt_ctl_info('declin : iday ', ivar1=iday, clinfo2=' nfbulk= ', ivar2=nfbulk) 324 322 325 ! computation of the solar declination, his sine and his cosine 323 326 CALL flx_blk_declin( indaet, iday, zdecl )
Note: See TracChangeset
for help on using the changeset viewer.