New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2649 – NEMO

Changeset 2649


Ignore:
Timestamp:
2011-03-03T19:45:36+01:00 (12 years ago)
Author:
cetlod
Message:

small bug correction

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  
    206206      ALLOCATE(trdta(jpi,jpj,jpk,jptra),                   & 
    207207               tracdta(jpi,jpj,jpk,jptra,2),               & 
    208                nlectr(jptra), ntrc1(jptra), ntrc2,(jptra), &  
     208               nlectr(jptra), ntrc1(jptra), ntrc2(jptra), &  
    209209               ! 
    210210               STAT=trc_dta_alloc) 
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r2643 r2649  
    8787         IF(lwp) WRITE(numout,*) ' ' 
    8888      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,*) 
    9496      ENDIF 
    9597 
     
    143145       
    144146      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 level 
     147        &    CALL zps_hde( nit000, jptra, trn, gtru, gtrv )       ! tracers at the bottom ocean level 
    146148 
    147149 
Note: See TracChangeset for help on using the changeset viewer.