Changeset 654 for trunk/NEMO/OFF_SRC
- Timestamp:
- 2007-04-18T11:30:57+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OFF_SRC/TRA/traqsr.F90
r498 r654 27 27 !! * Module variables 28 28 REAL(wp), PUBLIC :: & !!! * penetrative solar radiation namelist * 29 xsi1 = 0.35_wp ! first depth of extinction 29 xsi1 = 0.35_wp ! first depth of extinction 30 LOGICAL , PUBLIC :: ln_qsr_sms = .false. ! flag to use or not the biological fluxes for light 31 30 32 31 33 CONTAINS … … 39 41 !! ** Method : The profile of solar radiation within the ocean is set 40 42 !! from two length scale of penetration (xsr1,xsr2) and a ratio 41 !! (rabs). These parameters are read in the nam _qsr namelist. The43 !! (rabs). These parameters are read in the namqsr namelist. The 42 44 !! default values correspond to clear water (type I in Jerlov' 43 45 !! (1968) classification. … … 54 56 !! * Local declarations 55 57 56 NAMELIST/nam _qsr/ ln_traqsr, xsi158 NAMELIST/namqsr/ ln_traqsr, xsi1 57 59 !!---------------------------------------------------------------------- 58 60 59 ! Read Namelist nam _qsr : ratio and length of penetration61 ! Read Namelist namqsr : ratio and length of penetration 60 62 ! -------------------- 61 63 REWIND ( numnam ) 62 READ ( numnam, nam _qsr )64 READ ( numnam, namqsr ) 63 65 64 66 ! Parameter control and print … … 69 71 WRITE(numout,*) 'tra_qsr_init : penetration of the surface solar radiation' 70 72 WRITE(numout,*) '~~~~~~~~~~~~' 71 WRITE(numout,*) ' Namelist nam _qsr : set the parameter of penetration'73 WRITE(numout,*) ' Namelist namqsr : set the parameter of penetration' 72 74 WRITE(numout,*) ' first depth of extinction xsi1 = ',xsi1 75 WRITE(numout,*) ' Biological fluxes for light(Y/N) ln_qsr_sms = ',ln_qsr_sms 73 76 WRITE(numout,*) ' ' 74 77 END IF
Note: See TracChangeset
for help on using the changeset viewer.