Changeset 4684


Ignore:
Timestamp:
2014-06-21T13:24:33+02:00 (7 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.