Changeset 4567 for branches/2012

Timestamp:

2014-03-25T10:40:11+01:00 (10 years ago)

Author:

pabouttier

Message:

Fix a wrong lbc_lnk call, in tra_sbc_tan, see Ticket #1262

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trasbc_tam.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/TRA/trasbc_tam.F90

@@ -219 +219 @@
       ENDIF
 !!gm  It should be useless
-      CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1. )    ;    CALL lbc_lnk( tsa_tl(:,:,:,jp_sal), 'T', 1. )
+      CALL lbc_lnk( tsa_tl(:,:,:,jp_tem), 'T', 1. )    ;    CALL lbc_lnk( tsa_tl(:,:,:,jp_sal), 'T', 1. )
       !
       IF( nn_timing == 1 )  CALL timing_stop('tra_sbc_tan')