- Timestamp:
- 2013-11-05T12:59:53+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r3680 r4152 75 75 & CALL ctl_stop( ' Cross Land Advection not yet implemented with passive tracer ; nn_cla must be 0' ) 76 76 77 CALL trc_nam ! read passive tracers namelists 78 ! 79 IF(lwp) WRITE(numout,*) 80 IF( ln_rsttr ) THEN 81 ! 82 IF( lk_offline ) neuler = 1 ! Set time-step indicator at nit000 (leap-frog) 83 CALL trc_rst_cal( nittrc000, 'READ' ) ! calendar 84 ! 85 ELSE 86 IF( lk_offline ) THEN 87 neuler = 0 ! Set time-step indicator at nit000 (euler) 88 CALL day_init ! set calendar 89 ENDIF 90 ! 91 ENDIF 77 CALL trc_nam ! read passive tracers namelists 78 ! 79 IF(lwp) WRITE(numout,*) 80 ! 81 IF( ln_rsttr .AND. .NOT. lk_offline ) CALL trc_rst_cal( nit000, 'READ' ) ! calendar 82 ! 92 83 IF(lwp) WRITE(numout,*) 93 84 ! masked grid volume … … 107 98 IF( lwp ) THEN 108 99 ! 109 CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea )100 CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp , narea ) 110 101 ! 111 102 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.