Changeset 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
- Timestamp:
- 2017-05-09T12:14:45+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r6453 r8003 46 46 !! ** input : file 'namelist.trc.sms' containing the following 47 47 !! namelist: natext, natbio, natsms 48 !! natkriest ("key_kriest")49 48 !!---------------------------------------------------------------------- 50 49 !! … … 77 76 IF(lwm) CALL ctl_opn( numonp , 'output.namelist.pis' , 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 78 77 ! 79 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN80 !81 ! Namelist nampisdia82 ! -------------------83 REWIND( numnatp_ref ) ! Namelist nampisdia in reference namelist : Pisces diagnostics84 READ ( numnatp_ref, nampisdia, IOSTAT = ios, ERR = 901)85 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in reference namelist', lwp )86 87 REWIND( numnatp_cfg ) ! Namelist nampisdia in configuration namelist : Pisces diagnostics88 READ ( numnatp_cfg, nampisdia, IOSTAT = ios, ERR = 902 )89 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in configuration namelist', lwp )90 IF(lwm) WRITE ( numonp, nampisdia )91 92 DO jl = 1, jp_pisces_2d93 jn = jp_pcs0_2d + jl - 194 ctrc2d(jn) = pisdia2d(jl)%sname95 ctrc2l(jn) = pisdia2d(jl)%lname96 ctrc2u(jn) = pisdia2d(jl)%units97 END DO98 99 DO jl = 1, jp_pisces_3d100 jn = jp_pcs0_3d + jl - 1101 ctrc3d(jn) = pisdia3d(jl)%sname102 ctrc3l(jn) = pisdia3d(jl)%lname103 ctrc3u(jn) = pisdia3d(jl)%units104 END DO105 106 IF(lwp) THEN ! control print107 WRITE(numout,*)108 WRITE(numout,*) ' Namelist : natadd'109 DO jl = 1, jp_pisces_3d110 jn = jp_pcs0_3d + jl - 1111 WRITE(numout,*) ' 3d diag nb : ', jn, ' short name : ', ctrc3d(jn), &112 & ' long name : ', ctrc3l(jn), ' unit : ', ctrc3u(jn)113 END DO114 WRITE(numout,*) ' '115 116 DO jl = 1, jp_pisces_2d117 jn = jp_pcs0_2d + jl - 1118 WRITE(numout,*) ' 2d diag nb : ', jn, ' short name : ', ctrc2d(jn), &119 & ' long name : ', ctrc2l(jn), ' unit : ', ctrc2u(jn)120 END DO121 WRITE(numout,*) ' '122 ENDIF123 !124 ENDIF125 126 #if defined key_pisces_reduced127 128 IF( ( .NOT.lk_iomput .AND. ln_diabio ) .OR. lk_trdmld_trc ) THEN129 !130 ! Namelist nampisdbi131 ! -------------------132 REWIND( numnatp_ref ) ! Namelist nampisdbi in reference namelist : Pisces add. diagnostics133 READ ( numnatp_ref, nampisdbi, IOSTAT = ios, ERR = 903)134 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in reference namelist', lwp )135 136 REWIND( numnatp_cfg ) ! Namelist nampisdbi in configuration namelist : Pisces add. diagnostics137 READ ( numnatp_cfg, nampisdbi, IOSTAT = ios, ERR = 904 )138 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in configuration namelist', lwp )139 IF(lwm) WRITE ( numonp, nampisdbi )140 141 DO jl = 1, jp_pisces_trd142 jn = jp_pcs0_trd + jl - 1143 ctrbio(jl) = pisdiabio(jl)%sname144 ctrbil(jl) = pisdiabio(jl)%lname145 ctrbiu(jl) = pisdiabio(jl)%units146 END DO147 148 IF(lwp) THEN ! control print149 WRITE(numout,*)150 WRITE(numout,*) ' Namelist : nampisdbi'151 DO jl = 1, jp_pisces_trd152 jn = jp_pcs0_trd + jl - 1153 WRITE(numout,*) ' biological trend No : ', jn, ' short name : ', ctrbio(jn), &154 & ' long name : ', ctrbio(jn), ' unit : ', ctrbio(jn)155 END DO156 WRITE(numout,*) ' '157 END IF158 !159 END IF160 161 #endif162 163 78 END SUBROUTINE trc_nam_pisces 164 79
Note: See TracChangeset
for help on using the changeset viewer.