Changeset 2649 for branches/dev_r2586_dynamic_mem/NEMOGCM
- Timestamp:
- 2011-03-03T19:45:36+01:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r2643 r2649 206 206 ALLOCATE(trdta(jpi,jpj,jpk,jptra), & 207 207 tracdta(jpi,jpj,jpk,jptra,2), & 208 nlectr(jptra), ntrc1(jptra), ntrc2 ,(jptra),&208 nlectr(jptra), ntrc1(jptra), ntrc2(jptra), & 209 209 ! 210 210 STAT=trc_dta_alloc) -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r2643 r2649 87 87 IF(lwp) WRITE(numout,*) ' ' 88 88 ELSE 89 IF(lwp) WRITE(numout,*) 90 DO jn = 1, jptra 91 IF( lwp .AND. lutini(jn) ) & ! open input FILE only IF lutini(jn) is true 92 & WRITE(numout,*) ' read an initial file for passive tracer number :', jn, ' traceur : ', ctrcnm(jn) 93 END DO 89 IF( lwp .AND. lk_dtatrc ) THEN 90 DO jn = 1, jptra 91 IF( lutini(jn) ) & ! open input FILE only IF lutini(jn) is true 92 & WRITE(numout,*) ' read an initial file for passive tracer number :', jn, ' traceur : ', ctrcnm(jn) 93 END DO 94 ENDIF 95 IF( lwp ) WRITE(numout,*) 94 96 ENDIF 95 97 … … 143 145 144 146 IF( ln_zps .AND. .NOT. lk_c1d ) & ! Partial steps: before horizontal gradient of passive 145 CALL zps_hde( nit000, jptra, trn, gtru, gtrv ) ! tracers at the bottom ocean level147 & CALL zps_hde( nit000, jptra, trn, gtru, gtrv ) ! tracers at the bottom ocean level 146 148 147 149
Note: See TracChangeset
for help on using the changeset viewer.