Changeset 1011 for trunk/NEMO/TOP_SRC/trcrst.F90
- Timestamp:
- 2008-05-30T11:57:12+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcrst.F90
r945 r1011 32 32 INTEGER, PUBLIC :: numrtr, numrtw !: logical unit for trc restart (read and write) 33 33 34 #if defined key_pisces 34 35 REAL(wp) :: & 35 36 alkmean = 2426. , & ! mean value of alkalinity ( Glodap ; for Goyet 2391. ) … … 37 38 no3mean = 30.90 , & ! mean value of nitrate 38 39 siomean = 91.51 ! mean value of silicate 40 #endif 39 41 40 42 !! * Substitutions … … 158 160 CALL iom_get( numrtr, jpdom_local, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 159 161 CALL iom_get( numrtr, jpdom_local, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 160 # elif defined key_pisces 162 #endif 163 #if defined key_pisces 161 164 CALL iom_get( numrtr, jpdom_local, 'Silicalim', xksi(:,:) ) 162 165 CALL iom_get( numrtr, jpdom_local, 'Silicamax', xksimax(:,:) ) 163 # elif defined key_cfc 164 DO jn = 1, jptra 166 #endif 167 #if defined key_cfc 168 DO jn = jp_cfc0, jp_cfc1 165 169 CALL iom_get( numrtr, jpdom_local, 'qint'//ctrcnm(jn), qint(:,:,jn) ) 166 170 CALL iom_get( numrtr, jpdom_local, 'qtr'//ctrcnm(jn) , qtr( :,:,jn) ) … … 325 329 CALL iom_rstput( kt, nitrst, numrtw, 'SEDB'//ctrcnm(jpdet), sedpocb(:,:) ) 326 330 CALL iom_rstput( kt, nitrst, numrtw, 'SEDN'//ctrcnm(jpdet), sedpocn(:,:) ) 327 #elif defined key_pisces 331 #endif 332 #if defined key_pisces 328 333 CALL iom_rstput( kt, nitrst, numrtw, 'Silicalim', xksi(:,:) ) 329 334 CALL iom_rstput( kt, nitrst, numrtw, 'Silicamax', xksimax(:,:) ) 330 331 # elif defined key_cfc332 DO jn = 1, jptra335 #endif 336 #if defined key_cfc 337 DO jn = jp_cfc0, jp_cfc1 333 338 CALL iom_rstput( kt, nitrst, numrtw, 'qint'//ctrcnm(jn), qint(:,:,jn) ) 334 339 CALL iom_rstput( kt, nitrst, numrtw, 'qtr'//ctrcnm(jn) , qtr (:,:,jn) )
Note: See TracChangeset
for help on using the changeset viewer.