Changeset 1119 for trunk/NEMO/TOP_SRC/PISCES/p4zrem.F90
- Timestamp:
- 2008-06-20T17:17:41+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/PISCES/p4zrem.F90
r1073 r1119 16 16 USE trc 17 17 USE oce_trc ! 18 USE trp_trc !19 18 USE sms_pisces ! 20 19 USE prtctl_trc … … 409 408 !! ** Purpose : Initialization of remineralization parameters 410 409 !! 411 !! ** Method : Read the na trem namelist and check the parameters410 !! ** Method : Read the nampisrem namelist and check the parameters 412 411 !! called at the first timestep (nittrc000) 413 412 !! 414 !! ** input : Namelist na trem413 !! ** input : Namelist nampisrem 415 414 !! 416 415 !!---------------------------------------------------------------------- 417 416 418 NAMELIST/na trem/ xremik, xremip, nitrif, xsirem, xlam1, oxymin417 NAMELIST/nampisrem/ xremik, xremip, nitrif, xsirem, xlam1, oxymin 419 418 420 419 REWIND( numnat ) ! read numnat 421 READ ( numnat, na trem )420 READ ( numnat, nampisrem ) 422 421 423 422 IF(lwp) THEN ! control print 424 423 WRITE(numout,*) ' ' 425 WRITE(numout,*) ' Namelist parameters for remineralization, na trem'424 WRITE(numout,*) ' Namelist parameters for remineralization, nampisrem' 426 425 WRITE(numout,*) ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~' 427 426 WRITE(numout,*) ' remineralisation rate of POC xremip =', xremip
Note: See TracChangeset
for help on using the changeset viewer.