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 4684 for branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90 – NEMO

Ignore:
Timestamp:
2014-06-21T13:24:33+02:00 (10 years ago)
Author:
gm
Message:

#1233 : correct a bug in diaharm.F90 in the v3.4 stable (dev_v3_4_STABLE_2012)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r3294 r4684  
    468468#else 
    469469      DO jh = 1, nb_ana 
    470       CALL iom_put( TRIM(tname(jh))//'x_v', out_u(:,:,jh) ) 
    471       CALL iom_put( TRIM(tname(jh))//'y_v', out_u(:,:,nb_ana+jh) ) 
     470      CALL iom_put( TRIM(tname(jh))//'x_v', out_v(:,:,jh) ) 
     471      CALL iom_put( TRIM(tname(jh))//'y_v', out_v(:,:,nb_ana+jh) ) 
    472472      END DO 
    473473#endif 
Note: See TracChangeset for help on using the changeset viewer.