- Timestamp:
- 2016-01-18T16:49:26+01:00 (8 years ago)
- Location:
- branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r6259 r6261 108 108 ! 109 109 !! Jpalm -- 14-01-2016 -- restart and proc pb - try this... 110 CALL lbc_lnk( zun(:,:,:), 'U', -1. )111 CALL lbc_lnk( zvn(:,:,:), 'V', -1. )112 CALL lbc_lnk( zwn(:,:,:), 'W', -1. )113 110 DO jn = 1, jptra 114 111 CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r6259 r6261 105 105 DO jn = 1, jptra 106 106 CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. ) 107 CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )108 CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )109 107 END DO 110 108
Note: See TracChangeset
for help on using the changeset viewer.